欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → [求助]如何使用定时器,sub刷新问题

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5218人关注过本帖树形打印复制链接

主题:[求助]如何使用定时器,sub刷新问题

帅哥哟,离线,有人找我吗?
明心
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
[求助]如何使用定时器,sub刷新问题  发帖心情 Post By:2010/11/17 9:20:56 [显示全部帖子]

一个sub刷新频率为30分钟,一个sub刷新频率为5秒,这个怎么设置?本来想一起按照频率高的刷新,但是,这样整体的速度就会很慢,影响统计的结果。

 回到顶部
帅哥哟,离线,有人找我吗?
明心
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
  发帖心情 Post By:2010/11/17 9:39:07 [显示全部帖子]

一个我知道这么写

Sub APPLICATION_VBAStart()
 call Application.SetTimer(0,10000) '创建一个0号定时器,间隔时间1秒
End Sub

 

Sub APPLICATION_Timer(ID)
    '定时器事件处理

end sub

 

但两个怎么处理??

 

Sub APPLICATION_VBAStart1()
 call Application.SetTimer(0,500000) '创建一个0号定时器,间隔时间1秒
End Sub

 

Sub APPLICATION_Timer1(ID)
    '定时器事件处理

end sub

 

Sub APPLICATION_VBAStart2()
 call Application.SetTimer(0,3000000) '创建一个0号定时器,间隔时间1秒
End Sub

 

Sub APPLICATION_Timer2(ID)
    '定时器事件处理

end sub

 

是这样写吗

 

 

 

APPLICATION_VBAStart2()
APPLICATION_Timer2(ID)
这样写的系统都识别不了的。他只能识别

APPLICATION_VBAStart()
APPLICATION_Timer(ID)
所以第二个不知道怎么写

[此贴子已经被作者于2010-11-17 9:43:15编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
明心
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游民 帖子:274 积分:841 威望:0 精华:10 注册:2010/7/12 15:25:05
  发帖心情 Post By:2010/11/17 9:43:55 [显示全部帖子]

谢谢。

知道了。


 回到顶部