Question

vb中等待数秒钟后执行下一语句的方法？

不使用timer控件（因为等待时间可能会大于timer可接受的最大值），当程序执行到指定语句时，停顿数秒钟到几分钟，然后继续执行之后的语句，VB6有没有什么方法？（不使用timer控件、ActiveX控件）

Answer 1

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
sleep(5000) '延时五秒

Answer 2

 Do While ExistProcess("ASLUpdate.exe", wait) And i <= 600
                        Thread.Sleep(1000) : i += 1
                        If i >= 550 Then wait = False
                    Loop

Answer 3

Sleep(2000);休眠2秒

Answer 4

让线程休眠一断时间就行了

Answer 5

Public Sub TimeDelay(ByVal PauseSecond As Single)
' Attribute TimeDelay.VB_Description = "延时"
Dim Star, PauseTime
Star = Timer
PauseTime = PauseSecond
Do While Timer < Star + PauseTime
DoEvents
Loop
End SubPrivate Sub Command1_Click()
TimeDelay (5)
MsgBox "出来了"
End Sub
暂停5秒执行下一条语句