HOWTO: Create a Timer Event Using the Windows API Functions

Last reviewed: February 18, 1998
Article ID: Q180736
The information in this article applies to:
  • Microsoft Visual Basic Learning, Professional, and Enterprise Editions for Windows, version 5.0

SUMMARY

This article shows you how to create a timer event using the SetTimer and KillTimer Windows API functions. The article also includes a sample project that demonstrates how to use these functions.

You can use these functions if you need to execute events at intervals greater than what the Visual Basic Timer control allows. The Timer control allows a maximum interval of slightly over a minute while these API functions allow you to set an interval up to 24.86 days.

MORE INFORMATION

The SetTimer function creates a timer that executes a function at the specified time-out value. This function requires the following parameters:

  • hWnd identifies the window to be associated with the timer. This window is owned by the calling thread. If this parameter is NULL, no window is associated with the timer and the nIDEvent parameter is ignored.
  • nIDEvent specifies a nonzero timer identifier. If the hWnd parameter is NULL, this parameter is ignored.
  • uElapse specifies the time-out value, in milliseconds. You can use a Long data type with a value of up to 2,147,483,647 milliseconds. Values beyond this limit result in a Run-time Error '6' Overflow.

    NOTE: Visual Basic adds a pound sign (#) to the end of the time value if the value exceeds this limit.

  • lpTimerFunc points to the function to be notified when the time-out value elapses. Use the AddressOf operator to return a pointer to the function. The callback function receives the hWnd, the NIDEvent, the UElapse, and lpTimerFunc parameters from the AddressOf function.

If the SetTimer function is successful, the function returns an integer that identifies the new timer. The KillTimer function requires this integer to destroy the timer. If the SetTimer function fails, the function returns zero.

After creating a timer, you must destroy the timer using the KillTimer function. The KillTimer function requires the following parameters:

  • hWnd identifies the window associated with the specified timer. This value must be the same as the hWnd value passed to the SetTimer function that created the timer.
  • uIDEvent specifies the timer to be destroyed. If the window handle passed to SetTimer is valid, this parameter must be the same as the uIDEvent value passed to SetTimer. If the application calls SetTimer with hWnd set to NULL, this parameter must be the timer identifier returned by SetTimer.

The KillTimer function returns a non-zero value if the function successfully destroys the timer.

The next section shows how to create a sample project that demonstrates how to use these functions in Visual Basic.

To Create the Sample Project

  1. Start a new Standard EXE project in Visual Basic. Form1 is created by default.

  2. Add a TextBox and CommandButton to Form1.

  3. Add a module to the project by completing the following steps:

    - From the Project menu, click Add Module. The Add Module dialog box

         appears.
    

    - On the New tab, choose Module and click OK. A new module is added to

         your project.
    

  4. Copy the following code to the Code window of Module1:

    Sample Code -----------

          Option Explicit
    

          Declare Function SetTimer Lib "user32" _
    
                (ByVal hwnd As Long, _
                ByVal nIDEvent As Long, _
                ByVal uElapse As Long, _
                ByVal lpTimerFunc As Long) As Long
    
          Declare Function KillTimer Lib "user32" _
                (ByVal hwnd As Long, _
                ByVal nIDEvent As Long) As Long
    
          Global iCounter As Integer
    
          Sub TimerProc(ByVal hwnd As Long, _
                         ByVal uMsg As Long, _
                         ByVal idEvent As Long, _
                         ByVal dwTime As Long)
    
              iCounter = iCounter + 1
              Form1.Text1.Text = CStr(iCounter)
          End Sub
    
    

  5. Copy the following code to the Code window of Form1:

    Sample Code -----------

          Option Explicit
          Dim lngTimerID As Long
          Dim BlnTimer As Boolean
    

          Private Sub Form_Load()
    
             BlnTimer = False
             Command1.Caption = "Start Timer"
          End Sub
    
          Private Sub Command1_Click()
          'Starts and stops the timer.
    
             If BlnTimer = False Then
                lngTimerID = SetTimer(0, 0, 200, AddressOf TimerProc)
                If lngTimerID = 0 Then
                  MsgBox "Timer not created. Ending Program"
                  Exit Sub
                End If
                BlnTimer = True
                Command1.Caption = "Stop Timer"
             Else
                lngTimerID = KillTimer(0, lngTimerID)
                If lngTimerID = 0 Then
                   MsgBox "couldn't kill the timer"
                End If
                BlnTimer = False
                Command1.Caption = "Start Timer"
              End If
    
          End Sub
    
    

  6. On the Run menu, click Start or press the F5 key to start the program. Click Start Timer to create a timer event. At each specified interval, the TextBox is updated with a new value. Click Stop Timer to stop the timer event.

REFERENCES

For additional information about the SetTimer and KillTimer functions, refer to the Platform SDK Product Documentation.

For additional information about the AddressOf operator, refer to the Visual Basic Help.

Visual Basic Programmer's Guide, version 5.0; "Using the Timer Control"

Keywords          : VBKBWindowing_VBKB kbcode
Version           : WINDOWS:5.0
Platform          : Win95 winnt
Issue type        : kbhowto


================================================================================


THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY.

Last reviewed: February 18, 1998
© 1998 Microsoft Corporation. All rights reserved. Terms of Use.