更準確的Timer

為了製作一個比一般Timer物件更準確的小時鐘，我們就要用到GetTickCount這個API函數了！宣告法是：

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

這個API函數會傳回由開機到現在的時間，以千份之一秒作單位，因此利用它就可以作出非常準確的計時了：

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

Private Const Interval = 1000 '一秒執行一次

Private Sub Command1_Click()
Dim ST As Long
　Do
　　ST = GetTickCount

　　'**************************************
　　'這裡輸入要每次要做的工作，以下是例子
　　MsgBox "這是每一秒鐘執行的工作"
　　'**************************************

　　Do Until GetTickCount - ST >= Interval
　　Loop
　Loop
End Sub

利用這個方法，舊的Timer物件要放到一二邊了，因為這個方法比較準確和快，因此適合遊戲寫作、準確時間計算工作等。

上一頁