Win API Timer in VB 6.0

If you need to execute the particular piece of code in certain duration in your vb 6.0 application without using the vb Timer control then this code sample will help you a lot.

This API call doesn't uses the unwanted cpu processor but it only executes the Function or a sub at a given time and closes the timer when ordered.

Fist in the module put the following code:

Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, _
ByVal nIDEvent As Long) As Long



Public lngIden As Long

Public Function StartTimer()

lngIden = SetTimer(0, 0, 5000, AddressOf TimerCallback)

End Function

Public Function CloseTimer()

KillTimer 0, lngIden

End Function

Public Function TimerCallback(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent _
As Long, ByVal dwTime As Long) As Long

Dim lngRetVal As Long
lngRetVal = MsgBox("Hi its' me making a callback! Want me to prompt again?", _
vbExclamation + vbYesNo, "CallBack Functions")

If lngRetVal = vbNo Then
Call CloseTimer
End If

End Function

Now call the functions from the form

Private Sub Form_Load()
Call StartTimer
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call CloseTimer
End Sub



The Code sample can be downloaded and can be used from the following link below:

http://prateek.regmi.googlepages.com/WinApi_Timer.rar

If any comments or add ons on the code then please don't hesisate to comment on this blog.
Thanks

Related Posts by Categories