欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请教事件过程是如何响应的

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2917人关注过本帖树形打印复制链接

主题：请教事件过程是如何响应的
帅哥哟，离线，有人找我吗？
老树新芽
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：58 积分：227 威望：0 精华：0 注册：2011/12/21 19:59:25 		请教事件过程是如何响应的  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：蜘蛛侠 帖子：1366 积分：5210 威望：0 精华：7 注册：2010/12/11 18:00:33 		  发帖心情 Post By：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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：58 积分：227 威望：0 精华：0 注册：2011/12/21 19:59:25 		  发帖心情 Post By：2013/4/27 17:23:46 [只看该作者]

明白一些了，谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.23438 秒, 5 次数据查询