以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  APPLICATION_Timer 定义重复  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=96862)

--  作者:wzsunshao
--  发布时间:2016/4/28 22:02:44
--  APPLICATION_Timer 定义重复
论坛中掏了两个现成的vba模块,发现不能正常运行,提示如题,如何解决
--  作者:yukizzc
--  发布时间:2016/4/29 8:55:01
--  

Sub APPLICATION_Timer(ID)

End Sub

这个触发事件重复了,不同计时器通过ID来做区分


--  作者:wzsunshao
--  发布时间:2016/4/29 13:00:23
--  
是门外汉,没有VBA基础,请解答浅显些啊。两个模块如下修改也不对,请如何通过ID来做区分
1、Sub APPLICATION_Timer(ID2)
 if ID2=100 then

2、Sub Application_Timer(ID)

--  作者:王锋
--  发布时间:2016/4/29 13:12:44
--  
如果你是从其他地方搞来的模块,为了防止冲突,建议你在金字塔中使用不同的项目,不同的地方搞来的模块放到不同的项目中
--  作者:wzsunshao
--  发布时间:2016/4/29 14:54:16
--  
不同的项目能同时加载运行吗
--  作者:yukizzc
--  发布时间:2016/4/29 15:03:22
--  

不行,你要同时运行就这样写

 

Sub APPLICATION_Timer(ID)

if ID = 1 then

 

 

end if

 

if ID = 2 then

 

 

end if

 

End Sub