Question

vb代码暂停

我想在希望在执行一段代码时，在需要暂停的地方暂停1秒，接着执行其它的代码。
相当于VBS中的Wscript Sleep 1000 ，而且暂停过程中程序要有响应。

Answer 1

延时函数，参数 pausetime 为需要暂停的时间，单位是秒

Public Sub Delay(PauseTime As Long)
Dim Start As Single
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
End Sub

追问

我测试了一下，你的方法是最好用的。
但能不能将其整合成一个函数？

追答

这就是个完整的延时函数哦。。
调用方法： call delay(5) '延时5秒

Answer 2

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
用的时候
Sleep 1000

Answer 3

DoEvents
用上面这个转让控制权，要程序执行别的任务去。

Answer 4

程序要有响应？那只能用Timer控件了

Answer 5

Private Sub pause_Click() '暂停

wmp.Controls.pause