为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
0条评论