| 眾所周知，ACCESS只有一個(gè)Timer事件，并不能處理多個(gè)觸發(fā)事件，感覺(jué)十分不爽。 現(xiàn)在我們可以借助API輕松實(shí)現(xiàn)多個(gè)定時(shí)器，而且調(diào)用也比較方便，下面是個(gè)簡(jiǎn)單的例子 [quote] '模塊代碼: '=============================================================== '功能: 添加多個(gè)計(jì)時(shí)器 '用法: 設(shè)置計(jì)時(shí)器 SetTimer Me.hwnd, 1, 10000, AddressOf TimerProc1 ' 關(guān)閉計(jì)時(shí)器 KillTimer Me.hwnd, 1 '作者: andymark ' QQ : 42503577 [email=ewang11@163.com]ewang11@163.com[/email] ' '================================================================= Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long '創(chuàng)建一個(gè)計(jì)時(shí)器 '參數(shù): hwnd 窗口句柄 ' nIDEvent 定時(shí)器ID，多個(gè)定時(shí)器時(shí)，可以通過(guò)該ID判斷是哪個(gè)定時(shí)器 ' uElapse 時(shí)間間隔,單位為毫秒 ' lpTimerFunc 回調(diào)函數(shù) Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long '關(guān)閉銷毀計(jì)時(shí)器 'Timer回調(diào)涵數(shù) Public Sub TimerProc1(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) MsgBox "測(cè)試第1個(gè)Timer事件" End Sub Public Sub TimerProc2(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) MsgBox "測(cè)試第2個(gè)Timer事件" End Sub Public Sub TimerProc3(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) MsgBox "測(cè)試第3個(gè)Timer事件" End Sub '窗體代碼 Private Sub Form_Load() '設(shè)置10秒間隔,調(diào)用回調(diào)涵數(shù)TimerProc1 SetTimer Me.hwnd, 1, 10000, AddressOf TimerProc1 '設(shè)置4秒間隔,調(diào)用回調(diào)涵數(shù)TimerProc2 SetTimer Me.hwnd, 2, 4000, AddressOf TimerProc2 '設(shè)置14秒間隔,調(diào)用回調(diào)涵數(shù)TimerProc3 SetTimer Me.hwnd, 3, 14000, AddressOf TimerProc3 End Sub Private Sub Form_Unload(Cancel As Integer) '關(guān)閉所有計(jì)時(shí)器 KillTimer Me.hwnd, 1 KillTimer Me.hwnd, 2 KillTimer Me.hwnd, 3 End Sub [/quote] [hide][attach]28983[/attach][/hide]詳細(xì)內(nèi)容：http://m.mzhfr.cn/forum.php?mod=viewthread&tid=60481 |
|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó)
( 粵ICP備10043721號(hào)-1 )
GMT+8, 2025-7-13 08:31 , Processed in 0.062766 second(s), 16 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.
