以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (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=15433)
--  作者：rushtaotao
--  发布时间：2012/8/25 13:50:06
--  咨询 点击按钮启动定时器

Sub UserForm1_CommandButton1_Click()
     Call Application.SetTimer(1,1*1000)
End Sub

Sub Application_Timer(ID)
\'    if a=0 then
    call Application.MsgOut("111")
\'    a=1
\'    end if
End Sub

 

 

这段代码主要是测试 是否可以单击一个按钮来启动定时器 不需要vbastart来启动

可我没按按钮  定时器貌似已经启动了

 

大侠们 求助！！！
--  作者：王锋
--  发布时间：2012/8/25 15:15:25
--  
你肯定在代码的其他地方启用定时器了
--  作者：guotx2010
--  发布时间：2012/8/25 16:33:24
--  请教如何编写

定时器一旦启动，必须使用killtimer来停止，或者退出金字塔，你一定是运行过一次，之后没有显式停止导致的。

可以用application_vbaend事件，当停止vba时停止计时器。

 

Sub Application_VBAEnd()

      Call Application.KillTimer(1)

End Sub
--  作者：rushtaotao
--  发布时间：2012/8/25 19:52:41
--  

忽略了这个问题。。。以为停止运行  退出宏就可以了 谢谢2位