怎么让程序暂停20秒再往下执行?

同上

解决方案 »

  1.   

    wait??
    sleep??
    忘了是那个？
    如果都不是，就用timer
      

  2.   

    Public Sub Delay(PauseTime As Long)
    Dim Start As SingleStart = Timer
    Do While Timer < Start + PauseTime
          DoEvents
    Loop
    End SubPrivate Sub Command1_Click()
    Debug.Print Now
    Delay 20
    Debug.Print Now
    End Sub
      

  3.   

    Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)调用方法：
    Sleep 20000
      

  4.   

    API   Sleep n*1000
      

  5.   

    Public Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)推荐使用Sleep
      

  6.   

    用Timer控件Timer1.enabled = true后面的代码可以放在Timer1.timer里面，假设Interval设为1000(毫秒)，在Timer1.timer里面计数，等于20时，执行那些代码
      

  7.   

    推荐使用 Sleep API函数