急！怎么让程序等待5秒钟再执行后面的程序？

[ylljony]

怎么在程序当中让它等待5秒钟再执行后面的程序？

[faysky2]

用Sleep API函数
Sleep 5000 '延时5秒

[weiweiplay]

TimedPause 5

Public Function TimedPause(Secs As Long)
Dim secStart As Variant
Dim secNow As Variant
Dim secDIff As Variant

ExItPause = False '
secStart = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '
Do While secDIff < Secs
secNow = Format(Now(), "mm/dd/yyyy hh:nn:ss AM/PM") '
secDIff = DateDiff("s", secStart, secNow) '
DoEvents
Loop
End Function

[Summer006]

这里sleep比较合适，timer反而比较麻烦了。

[huangjis]

学习中

[tembo]

请问怎样调用用Sleep API函数？？、、？

[faysky2]

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim i%
For i = 1 To 100
Command1.Caption = i
Sleep 5000 '延迟5秒后再执行
Next
End Sub