VB中使用延时函数(Sleep)

来源:www.cncfan.com | 2006-12-12 | (有36492人读过)

'声明：
Declare   Sub   Sleep   Lib   "kernel32"   (ByVal   dwMilliseconds   As   Long)
'调用：
'延时1秒
Call   Sleep(1000)

以下是引用片段：

sleep 是个好办法，但是进程会暂停

附送一个延时函数：（体现DoEvents 的用处）

Public Sub Delay(mSec As Long)
On Error Resume Next

Dim TStart As Single

TStart = Timer

While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend

End Sub