以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]关于定时器的问题  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=10153)
--  作者：ares89
--  发布时间：2012/2/15 11:25:18
--  [求助]关于定时器的问题
1.如果要每天进行一个动作，这样设定时器就好了吧？
Application.SetTimer(1,24*60*60*1000) 
2.settimer的第一个参数ID，与计时器的动作怎么对应呢？ 
比如下段代码，第一个过程中，ID=10，但系统怎么知道去触发第二个过程呢而不是其他过程呢？

Sub APPLICATION_VBAStart()
     Call Application.SetTimer(10, 1000)
     GetExcelFile("D:\\Stock.xls")
End Sub

Sub APPLICATION_Timer(ID)
     GetStockCode
     GetNewPrice
End Sub
--  作者：王锋
--  发布时间：2012/2/15 11:58:47
--  

1。是的

2.参数ID就是识别你是定时器类型的

 

Call Application.SetTimer(10, 1000)
Call Application.SetTimer(11, 1000)

 

这样就设定了2个定时器

Sub APPLICATION_Timer(ID)

If ID = 10 then
     GetStockCode

end if

if ID = 11 then
     GetNewPrice

end if
End Sub


 
--  作者：ares89
--  发布时间：2012/2/15 13:10:21
--  
谢谢！