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: TLB_vbalHRTA.odl
[
uuid(F4227A91-5521-463d-80CE-A59FBC4CE030),
helpstring("vbAccelerator Safe HiResolution Timer thread safe API call"),
lcid(0x0),
version(1.0)
]
library vbalHiResTimerAPI
{
typedef [public] long HWND;
typedef [public] long DWORD;
typedef [public] long WPARAM;
typedef [public] long LPARAM;
[dllname("user32")]
module User32
{
[entry("PostMessageA")] long PostMessage ([in] HWND hWnd, [in] DWORD
wMsg, [in] WPARAM wParam, [in] lPARAM lParam);
};
}