VB6 Sleep & Delay 設定程式碼延遲！

1. Sleep

這個延遲呢,聽說造成整體程式延遲 看起來會LAG
本人無感,所以呢各位自行選擇

'宣告API
Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

使用方法:
'單位:毫秒
'1000毫秒 = 1秒
Sleep 100  '100為延遲


2. Delay

Private Sub Delay(ASecond As Integer)
    Dim before
    before = Timer
    Do
    DoEvents
    Loop Until (Int(Timer - before) = ASecond)
End Sub

Call Delay(1) '1 = 延遲1秒 如果是0.5 就改0.5就好

FB: 陳小逆

RC:DreamAnonymous