VBA下完全功能的Timer类

micahser

收藏借鉴参考学习，谢谢楼主的分享

gdgzlyh

谢谢分享，学习学习。

gdgzlyh

谢谢版主分享，学习学习。

Ericall

谢谢分享。。。。

lovexcelh

很好！！！！！

ifrozenice

很好很赞

sunsoncheng

问一个很笨的问题

这个类用在 模块 上为什么不行？
我的写法是这样的：
Public cTimer1 As clsTimer  ' 在网上查这样写就没有类的事件了应该如何处理呢

Sub StarTimer1()         '开启  on time   功能！
    Set cTimer1 = New clsTimer
    cTimer1.Enabled = True
    cTimer1.Interval = 10000 '10S   
End Sub

Sub CloseTimer1() '关闭on time功能！
   On Error Resume Next
   cTimer1.Enabled = False
   Set cTimer1 = Nothing
End Sub

Private Sub cTimer1_Timer()
  Call GetMsg                             '在这里打了个断一点动静都没有！
End Sub

对类知得太少了，请指教
谢谢

winland

要用到类的事件的话，还是需要在类模块（包括窗体，工作表模块）里使用。
在标准模块里使用定时器的话，你应该知道使用Application.onTime
如果觉得用递归比较麻烦的话，也可以用API函数来实现同样的onTime功能。

1. Private Declare Function SetTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long, _
   
2.                         ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
   
3. Private Declare Function KillTimer Lib "user32.dll" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
   
4. 
   
5. Public lTimerID As Long
   
6. 
   
7. Sub StartTimer(lDuration As Long)
   
8.     If lTimerID = 0 Then
   
9.         lTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
   
10.     Else
    
11.         Call StopTimer
    
12.         lTimerID = SetTimer(0&, 0&, lDuration, AddressOf OnTime)
    
13.     End If
    
14. End Sub
    
15. Sub StopTimer()
    
16.     KillTimer 0&, lTimerID
    
17. End Sub
    
18. Sub OnTime()
    
19.     Cells(1, 1) = Now
    
20. End Sub

复制代码

[ 本帖最后由 winland 于 2011-6-9 20:32 编辑 ]

zoruhcgs

谢谢楼主。正好要用。

使用ontime和使用底层内存调用制作的timer有什么不同么

85147478

sadasdeasdas