2、寫入代碼
Dim nowtime As Integer
Public Sub Delay(t As Integer)
nowtime = Timer
Do While Timer - nowtime < t
DoEvents
Loop
End Sub
這樣一個延時函數就完成了!
工程中需要延時時只需調用該函數
例子:需要延時3秒
call delay(3)
即可!
首頁 → 編程開發(fā) → 其它知識 → VB中的延時函數:自定義do...loop循環(huán)
相關軟件相關文章發(fā)表評論 來源:U盤殺毒精靈官網時間:2011/7/29 10:39:41字體大。A-A+
作者:反黑衛(wèi)士點擊:641次評論:1次標簽: VB6.0
名稱大小下載