timeGetTime

timeGetTime函数

函数功能：该函数得到定时器的当前值。timeGetTime返回值的单位是1ms

函数原型：Public Declare Function timeGetTime Lib "winmm.dll" () As Long

例如：实现延时

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

Public Sub Delay(ByVal num As Integer)

Dim t As Long

t = timeGetTime

Do Until timeGetTime - t >= num

DoEvents

Loop

End Sub