用API：timeSetEvent做高精度定时器

Question

Public js As Long应该是Public js lngReturn Long    特此纠正。

Answer 1

Public js As Long应该是Public lngReturn as Long    特此纠正。

Answer 2

看下面的文章：
http://www.applevb.com/art/timing.htm
VB高精度计时器编程的讨论，可能对你有帮助

Answer 3

把timeSetEventProc这个函数修改如下就可以了
Public Sub timeSetEventProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)
Static js As Long
js = js + 1
frmtime.Text1 = js
End Sub

Answer 4

我的文章中的TimeEvent的回调函数同楼上的是一样的呀？难道不能用？
Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, ByVal dw1 As Long, ByVal dw2 As Long)