|
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '該聲明得到系統(tǒng)開機到現(xiàn)在的時間(單位：毫秒)
Public Function Sleep2(T As Long)
Dim Savetime As Long
Savetime = timeGetTime '記下開始時的時間
While timeGetTime < Savetime + T '循環(huán)等待
DoEvents '轉(zhuǎn)讓控制權(quán)
Wend
End Function
'在要延時的地方調(diào)用
Sleep2(15000) '延時15秒
|
延伸閱讀:
· VB延時類 計算經(jīng)過的時間 實現(xiàn)延時程序
|
