为ACCESS添加多个Timer功能

众所周知，ACCESS只有一个定时器事件，无法处理多个触发事件，这让它很不舒服。
现在我们可以借助API轻松实现多个定时器，调用起来也很方便。这里有一个简单的例子。

模块代码:

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = address of timer proc 1
'关闭计时器KillTimer Me.hwnd，1
'作者:安迪·马克
' QQ:42503577 ewang 11 @ 163.com
'
' = =

声明函数SetTimer Lib " user 32 "(ByVal hwnd As Long，ByVal nIDEvent As Long，ByVal uElapse As Long，ByVal lptimerfunc As Long)
'创建计时器
'参数:hwnd窗口句柄
' nIDEvent计时器ID。当有多个计时器时，您可以确定哪个计时器
'延迟时间间隔，单位为毫秒
' LPTIME。

声明函数kill timer lib "user32" (byval hwnd为long，byval nid event为long)只要
'关闭破坏计时器。

'Timer回调函数
public Sub Timer proc 1(Byval hwnd as long、byval nid event as long、byval u elasticity as long、Byval lpTimerfunc as long)
msgbox " test the first Timer event "
End Sub
public Sub Timer proc 2(Byval hwnd as long、byval nid event as long、Byval Elapse as long、Byval lpTimerfunc as long)
msgbox " test

public Timer proc 3(Byval Hwnd as long、Byval Nid Event as long、Byval U Elapse as long、Byval LPTimerfunc as long)
msgbox "测试第三个计时器事件"
End Sub

'表单代码

Privateform _ load ()
'设置间隔10秒，调用回调函数timer proc1
settimerme . hwnd，1，10000，Timer proc 1的地址
'设置间隔4秒，调用回调函数Timer Proc2
settimerme . hwnd，2，4000，Timer proc 2的地址
'设置间隔14秒，调用回调函数Timer Proc3

private form _ unload(cancel as integer)
'关闭所有计时器
killtimer me.hwnd，1
killtimer me.hwnd，2
killtimer me.hwnd，3
end sub