高级功能研发区-[求助]关于定时器的问题金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  高级功能研发区  (http://222.73.7.161/bbs/list.asp?boardid=5)
----  [求助]关于定时器的问题  (http://222.73.7.161/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
--
谢谢！