以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  闹钟触发的问题，请帮忙  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=2914)
--  作者：jameszyj
--  发布时间：2010/9/20 12:59:38
--  闹钟触发的问题，请帮忙

Sub APPLICATION_Timer(id)
    msgbox "id:"+cstr(id)
End Sub


Sub APPLICATION_VBAStart()
    dim lnv_rtn
    lnv_rtn=application.SetTimer(0,2000)
    \'msgbox cstr(lnv_rtn)
End Sub

 

我的意图是在VBA开始的时候启动一个闹钟，我测试的时候当VBA开始的时候，闹钟被启动成功了，但是并没有每隔两秒去执行APPLICATION_Timer(id) 事件，请老大帮忙解决一下，我是东银期货的模拟帐号来测试。
   

--  作者：wattwei
--  发布时间：2010/9/20 13:13:48
--  
 SetTimer的ID不要设成0，设成其它的整数即可
--  作者：jameszyj
--  发布时间：2010/9/20 13:47:29
--  
老大，我把触发器的id改成非0之后，application_timer还是触发不了。我的版本是1.991
--  作者：wattwei
--  发布时间：2010/9/20 13:58:05
--  
你试着调试下吧，找找原因。这个函数是正常的，用了好长时间了，从未出现过问题。
在控制面板启动VBA，APPLICATION_VBAStart()函数开头处写个msgbox函数，看看运行到这里来没有。
--  作者：jameszyj
--  发布时间：2010/9/20 19:13:10
--  
系统卸掉重新安装就好了。