VB5 HiResTimer Full Source Code (26K)
VB6 HiResTimer Full Source Code (29K)
21 Nov 2002
Added a VB6 version of the timer. Note that in the VB6 version, we need to use a Type Library to call the PostMessage Win32 call. This is because the multimedia timer fires on another thread to the VB application, and, as described in Matt Curland's excellent book "Advanced Visual Basic" VB6 uses Thread Local Storage which isn't initialised on receipt of an event from another Thread. As a consequence you can only make calls to methods described in a type library.
vbAccelerator - Contents of code file: ITimer.cls
VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "ITimer" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Option Explicit ' =============================================================================== ======= ' Name: vbAccelerator Safe Hi Resolution Timer Object (VB6 Version) ' Author: Steve McMahon (steve@vbaccelerator.com) ' Date: 02 September 2000 ' ' Requires: vbalHRTA.TLB ' see http://vbaccelerator.com/ ' ' Copyright 1999-2000 Steve McMahon for vbAccelerator ' ------------------------------------------------------------------------------- ------- ' Visit vbAccelerator - advanced free source code for VB programmers ' http://vbaccelerator.com ' ------------------------------------------------------------------------------- ------- ' ' Implement this interface to have Early-Bound timer events ' sent to your code. ' ' =============================================================================== ======= Public Sub Timer(ByVal sKey As String) End Sub