刚刚学VBA,想了解一下定时器是如何工作的。代码如下,
Sub APPLICATION_VBAStart1() '1
call Application.SetTimer(0,100) '2
call APPLICATION_Timer(ID) '3
End Sub
'4
Sub APPLICATION_Timer(ID)
'5
if ID = 0 then
'6
msgbox "thank you"
'7
end if
'8
end sub
'9
结果不停的弹出“THANK YOU”对话框,象中毒了一样,按SHIFT+BREAK也没用。当然这不是我想问的问题。
我的理解是这样的,第二句调用定时器设置过程,把(0,100)代给定时器过程,这个过程有个返回值ID=0或者是-100
第三句,调用APPLICATION_Timer(ID),并把ID 传给过程APPLICATION_Timer(ID)。
我的问题是:1、事件TIMER的返回值符号是不是一定是字母ID?
2、一般的过程调用一遍就只执行一遍,而本代码持续输出"THANK YOU",是不是说明只要VB是运行状态,那么就自动对事件产生
响应?
3、TIMER事件有返回值ID,我对ID进行判断符合条件进行响应。但是对于没有值的事件,比如START,我需要设计一个过程对之
响应,该怎么办呢?
1、你的定时器就是每隔1秒执行一次的,所以会不断出现“thank you”
2、call APPLICATION_Timer(ID) '3这一句是多余的,上面设置了一个定时器,Application_timer(ID)事件就会自动运行。
3、Application_timer(ID)事件的参数ID是定时器的编号,就是Application.SetTimer(0,100)中的参数0,金字塔可支持多个定时器,编号用于识别不同的定时器。
[此贴子已经被作者于2013-4-25 8:25:44编辑过]