我在用VB程序控制仪器。因仪器没有响应的triger信号,当向仪器发出指令后需要等待一段时间让其执行操作。请问除使用timer控件外,还有什么函数或方法让程序暂停预先指定的时间间隔?可能为几百毫秒或几秒。敬请各位高手赐教!!!小弟不胜感激!!!多谢!!!

解决方案 »

  1.   

    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)sleep 1000'1秒
      

  2.   

    'This project needs a button
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    Private Sub Command1_Click()    Me.Caption = "Your system will sleep 5 sec."
        'Sleep for 5000 milliseconds
        Sleep 5000
        Me.Caption = ""
    End Sub
    Private Sub Form_Load()
        Me.Caption = ""
        Command1.Caption = "Sleep ..."
    End Sub
      

  3.   

    退出或暂停程序。 DoEvents, End, Exit, Stop