等待延遲函數－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

上一頁