以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  请教事件过程是如何响应的  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=51381)
--  作者：老树新芽
--  发布时间：2013/4/24 16:42:36
--  请教事件过程是如何响应的
刚刚学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，我需要设计一个过程对之
响应，该怎么办呢？
--  作者：guotx2010
--  发布时间：2013/4/25 8:24:40
--  
1、你的定时器就是每隔1秒执行一次的，所以会不断出现“thank you”
2、call APPLICATION_Timer(ID)        \'3这一句是多余的，上面设置了一个定时器，Application_timer(ID)事件就会自动运行。
3、Application_timer(ID)事件的参数ID是定时器的编号，就是Application.SetTimer(0,100)中的参数0，金字塔可支持多个定时器，编号用于识别不同的定时器。

楼主对金字塔的运行机制需要多些了解，建议看看本人的：http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642

[此贴子已经被作者于2013-4-25 8:25:44编辑过]
--  作者：老树新芽
--  发布时间：2013/4/27 17:23:46
--  
明白一些了，谢谢！