Sub time()
Call Application.SetTimer(0,2*1000) '設置一個0號計時器,間隔2秒執(zhí)行一次
Call Application.Settimer(9,5*1000) '設置一個9號計時器,間隔5秒執(zhí)行一次
End Sub
'下面的過程是計時器循環(huán)體,我讓計時器顯示每次觸發(fā)的時間,你看看是不是間隔設定的秒數就觸發(fā)。
Sub Application_Timer(ID)
If ID=0 then
Application.msgout ",0號計時器觸發(fā)了"
end if
If ID=9 then
Application.msgout ",9號計時器觸發(fā)了"
end if
End Sub
按說應該輸出消息,但實際消息框無反應。我嘗試著用論壇里所說的刪除注冊表中的weistock,也沒有效果。