可替代VB自带的Timer控件的Timer类

原帖：http://blog.csdn.net/Modest/archive/2006/10/23/1346175.aspx

用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveXexe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下：

标准模块(mTimer):
Option ExplicitPrivate Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)Public TimerColl As New VBA.CollectionPublic Sub TimeProc(ByVal hWnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long) Dim Timer As Timer, lpTimer As Long lpTimer = TimerColl("ID:" & idEvent) CopyMemory Timer, lpTimer, 4& Timer.PulseTimer CopyMemory Timer, 0&, 4&End Sub

类模块(Timer):
Option ExplicitPrivate Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As LongPrivate Declare Function KillTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long) As LongPrivate m_TimerID As LongPrivate m_Interval As LongPrivate m_Enabled As BooleanPublic Tag As VariantPublic Event Timer()Public Property Get Interval() As Long Interval = m_IntervalEnd PropertyPublic Property Let Interval(ByVal Value As Long) m_Interval = Value Enabled = m_EnabledEnd PropertyPublic Property Get Enabled() As Boolean Interval = m_EnabledEnd PropertyPublic Property Let Enabled(ByVal Value As Boolean) If Value Then m_Enabled = StartTimer Else Call StopTimer End IfEnd PropertyPrivate Function StartTimer() As Boolean If m_TimerID = 0 Then If m_Interval > 0 Then m_TimerID = SetTimer(0, 0, m_Interval, AddressOf TimeProc) If m_TimerID <> 0 Then TimerColl.Add ObjPtr(Me), "ID:" & m_TimerID StartTimer = True End If Else m_Enabled = True End If End IfEnd FunctionFriend Sub PulseTimer() RaiseEvent TimerEnd SubPrivate Sub StopTimer() If m_TimerID <> 0 Then KillTimer 0, m_TimerID TimerColl.Remove "ID:" & m_TimerID m_TimerID = 0 m_Enabled = False End IfEnd SubPrivate Sub Class_Terminate() Call StopTimerEnd Sub

使用方法：
Private WithEvents Timer1 As TimerPrivate Sub Form_Load() Set Timer1 = New TimerLib.Timer Timer1.Interval = 1000 Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer() Debug.Print NowEnd Sub