等待延遲函數-Delay

函數Delay可以用來暫停程式的進行,達到控制程式流程的效果:

Private Sub Delay(DelayTime As Single)
Dim ST As Single
 ST = Timer
 Do Until Timer - ST > DelayTime
  DoEvents
 Loop
End Sub

用法:

Private Sub Command1_Click()
    MsgBox "延遲一秒"
    Delay 1
    MsgBox "完成"
End Sub

Private Sub Delay(DelayTime As Single)
Dim ST As Single
    ST = Timer
    Do Until Timer - ST > DelayTime
        DoEvents
 Loop
End Sub


上一頁