[VBA函数]：有没有类似时间控件的代码

yicol

我要在一定时间内触发一个事件怎么办？

Laoyao

VBA没有专用函数,必须调用API函数timeSetEvent, timeKillEvent[/COLOR]
下例为在IMMEDIATE窗口1秒间隔显示时间.
开始SUB

Sub StartTimerProc()
   ID = timeSetEvent(1000, 0, AddressOf TimeProc, 1, 1)’其中1000为间隔设定,单位毫秒.
End Sub

关闭SUB
Sub EndTimerProc()
   
    timeKillEvent ID

End Sub

将以下代码放在MODULE中(必须,只能放在MODULE中)[/COLOR]
Public Declare Function timeSetEvent Lib "winmm.dll" (ByVal uDelay As Long, ByVal _
        uResolution As Long, ByVal lpFunction As Long, ByVal dwUser As Long, _
        ByVal uFlags As Long) As Long
Public Declare Function timeKillEvent Lib "winmm.dll" (ByVal uID As Long) As Long
Public ID As Long

Sub TimeProc(ByVal uID As Long, ByVal uMsg As Long, ByVal dwUser As Long, _
    ByVal dw1 As Long, ByVal dw2 As Long)
        
   
    Debug.Print Time, ID
END SUB

xuminseu

请问Laoyao，timeSetEvent中各参数的意义？能解释一下吗？
我也用了timesetevent函数，为什么没有调用timeproc过程？请Laoyao赐教。
ID = timeSetEvent(1000, 0, AddressOf TimeProc, 1, 1)
timeKillEvent ID


*-*5