请问各位，怎样做一个用于时间计数的COM组件？

Question

就是要求每100毫秒，程序要自动加一次，而且要返回出当前的计数的数值。请问应该怎样实现？

Answer 1

如下程序实现了每100毫秒程序要自动加一次，返回出当前的计数的数值不好解决。'模块的代码
Public T As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    T = T + 1
End Sub'类模块里的代码
Private Sub Class_Initialize()
    SetTimer App.hInstance, 0, 100, AddressOf TimerProc
End SubPrivate Sub Class_Terminate()
    KillTimer App.hInstance, 0
End Sub

Answer 2

有谁若知道，可以用：QQ，284791951  MSN，[email protected]
来联系。

Answer 3

（1）创建一个Edit 或static Window  使用 Createwindowex,比如，句并为hwndMine
(2) hook 上面创建的hwndMine，截获你定义的消息，比如:WM_MYNOTIFY=WM_USER+1000
(3)在
     Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
    T = T + 1'添加以下代码Sendmessage  hwndMine,WM_NOTIFY,0&,T
'///////////////////////////////////////////////////
End Sub从上面的SendMessage你就可以看出，截获WM_NOTIFY消息，取得lparam就是传出的T!