VBA计时器Timer的使用

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Public lTimerID As Long

Sub Start()
    '启动计时器,时间间隔1分钟
    StartTimer 60000
End Sub

Sub StartTimer(lDuration As Long)
    If lTimerID = 0 Then
        lTimerID = SetTimer(0, 0, lDuration, AddressOf OnTime)
    Else
        Call StopTimer
        lTimerID = SetTimer(0, 0, lDuration, AddressOf OnTime)
    End If
End Sub

Private Sub StopTimer()
    KillTimer 0, lTimerID
End Sub

Private Sub OnTime()
    ' 计时器触发后运行的代码放在这
    ' ...
    SendFile "c:\abc"
    SendFile "c:\cba"
End Sub
不允许评论