VB 中运用 TimeSetEvent 代替 Timer 控件

窗体代码:

Option Explicit
Private Declare Function timeKillEvent Lib "winmm.dll" ( ByVal uID As Long ) As Long
Private Declare Function
timeSetEvent Lib "winmm.dll" ( ByVal uDelay As Long , ByVal uResolution As Long , ByVal lpFunction As Long , ByVal dwUser As Long , ByVal uFlags As Long ) As Long
Dim
p As Long
Private Const
TIME_周期 As Long = 1
Private Const TIME_一次性 As Long = 0

Private Sub Form_DblClick()
timeKillEvent p
p =
0
End Sub

Private Sub
Form_Load()
p = timeSetEvent(
300000 , 10 , AddressOf TimeProc, 1 , TIME_一次性)
Debug.Print timeGetTime
End Sub

Private Sub
Form_QueryUnload(Cancel As Integer , UnloadMode As Integer )
If p Then timeKillEvent p: p = 0 : Cancel = True : Timer1.Enabled = True
End Sub

Private Sub
Timer1_Timer()
Timer1.Enabled =
False
Unload Me
End Sub
[/font]



模块代码:

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

Sub
TimeProc( ByVal uID As Long , ByVal uMsg As Long , ByVal dwUser As Long , ByVal dw1 As Long , ByVal dw2 As Long )
Debug.Print timeGetTime
End Sub

 

你可能感兴趣的:(vb)