[轉貼] 更精確的計時 VB

laigs218

一般使用Timer物件，沒有辦法精確的算到微秒，(每秒目更新18.2次)，若要算到
微秒，則使用GetTickCount ，它傳回Windows啟動後到目前為止所經過的時間，
傳回值以微秒為單位。

Private Declare Function GetTickCount Lib "kernel32" Alias _
       "GetTickCount" () As Long

Private CanContinue as Boolean

Private Sub Command1_click()
Dim i as Long
Dim j as Long
i = GetTickCount()
CanContinue = True
Do While CanContinue
   j = GetTickCount()
   if j - i > 50 Then
      Debug.Print "已過50微秒"
      i = j
   End If
   DoEvents
Loop
End Sub

Private Sub Command2_Click()
  CanContinue =  False
End Sub