以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  用VBA使用消息输出功能失败。  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=60264)

--  作者:xieguihua
--  发布时间:2013/12/24 10:13:42
--  用VBA使用消息输出功能失败。

Sub time()
    Call Application.SetTimer(0,2*1000)      \'设置一个0号计时器,间隔2秒执行一次
    Call Application.Settimer(9,5*1000)      \'设置一个9号计时器,间隔5秒执行一次
End Sub
 
\'下面的过程是计时器循环体,我让计时器显示每次触发的时间,你看看是不是间隔设定的秒数就触发。
Sub Application_Timer(ID)
    If ID=0 then
        Application.msgout   ",0号计时器触发了"
    end if
    If ID=9 then
        Application.msgout   ",9号计时器触发了"
    end if
End Sub

 

 

按说应该输出消息,但实际消息框无反应。我尝试着用论坛里所说的删除注册表中的weistock,也没有效果。


--  作者:王锋
--  发布时间:2013/12/24 11:50:04
--  
你先确定time()这个过程函数有没有被调用锅
--  作者:guotx2010
--  发布时间:2013/12/26 11:58:33
--  
time()这个子过程没有执行过,所以没有设置计时器

可以吧time加到vbastart事件中去。

如:

Sub Application_VbaStart()
Time
End Sub
[此贴子已经被作者于2013/12/26 11:59:28编辑过]