vba 当触发KillTimer时,excel直接闪退了,连看代码出错的的时间都没有,敢问大神原因?

```Public Declare PtrSafe Function SetTimer Lib "user32" ( _
    ByVal HWnd As Long, _
    ByVal nIDEvent As Long, _
    ByVal uElapse As Long, _
    ByVal lpTimerFunc As LongPtr) As Long

Public Declare PtrSafe Function KillTimer Lib "user32" ( _
    ByVal HWnd As Long, _
    ByVal nIDEvent As LongPtr) As Long

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public TimerID As Long
Public mymy As Integer
Sub StartTimer()
    TimerID = SetTimer(0&, 0&, 50&, AddressOf TimerProc)
    DoEvents
End Sub

Sub EndTimer()'触直接excel闪退
    On Error Resume Next
    KillTimer 0&, TimerID
End Sub
Sub TimerProc()
    mymy = mymy + 1
    Sheet1.Cells(5, 5) = mymy
End Sub

1个回答

参考:
http://www.exceloffice.net/archives/1245

不要在vba/vb里使用带有回调函数的api(比如你这个addressof TimerProc),因为vba/vb缺乏异常处理机制,在回调中的异常会导致整个程序崩溃

caozhy
贵阳老马马善福专业维修游泳池堵漏防水工程 回复lostfalling: 用死循环+Sleep函数
7 个月之前 回复
Java81883
lostfalling 那个是可以但是设定时间最少是1秒,不能设成毫秒,这个调用API程序会崩溃,还有其他可用的方法不?
7 个月之前 回复
Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问