Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请教事件过程是如何响应的

1楼
老树新芽 发表于: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,我需要设计一个过程对之
响应,该怎么办呢?
2楼
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编辑过]
3楼
老树新芽 发表于:2013/4/27 17:23:46
明白一些了,谢谢!
共3 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.01367 s, 2 queries.