How to use timer in a module

[shuiqq]

Sorry for my stupid question:
I want to use a time only in a module, I do not want to add the timer control into a form. How can I define the timer in a module in VB6? Can anybody give an example?
Thanks.

[mstraf]

Add this in a bas module:

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

Private Sub TimerProc(ByVal hwnd As Long, _
                      ByVal lMsg As Long, _
                      ByVal lTimerID As Long, _
                      ByVal lTimer As Long)

    '' your code here
End Sub

To start the timer:
myTimer = SetTimer(0, 0, millisec, AddressOf TimerProc)

To stop the timer:
KillTimer 0, myTimer

Marco

[shuiqq]

Thank you, Macro.

What are meaning of the parameters in the code? Will the subroutine TimerProc() run in background?

In the function SetTimer(), how can I defined the address of the function TimerProc() in the design time?

Normally I use VB timer control that has few properties in a form, and it is easy to use. Is it possible to use it in a .bas module?

Thank you.

[mstraf]

VB is strictly single threaded, therefore TimerProc will run in the same thread of the main application, the same way as for the Timer event of the Timer control. For the SetTimer API, look at its defintion in the MSDN documentation (if you do not have MSDN installed, go to www.msdn.com)

Because SetTimer is an API, VB does not have a design interface for it. Sorry, this is coding 'the old way' (or the right way, like someone thinks)

Controls can't be added in a bas module. That is, they need a 'container' (like a form) to be created (or 'hosted'). And events can only be handled in cls, frm or ctl files

Marco