记时器出问题了!!!

atao1128 2003-11-12 07:54:16
Timer1.Interval = 60000
为什么当我写: Timer1.Interval = 120000时就出错了呢,是什么原因,我想把间隔时间加大,行不行
...全文
47 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
atao1128 2003-11-12
  • 打赏
  • 举报
回复
谢了,搞定拉
goldstar3000 2003-11-12
  • 打赏
  • 举报
回复
下面的文章可以决你的问题
你可以参照vb中的msdn帮助查找datdiff函数使用方法
让Timer控件每5分钟触发一次事件

  Timer控件的Interval属性可以设置为0到65535之间的任意直,所以用Timer触发事件的最大时间间隔只能有65秒,因此如何能设置更长的时间间隔呢?可以在事件中建立代码,用系统时间确定这个时间间隔。               
Dim dtNextTime as Date

Private Sub Form_load()
 Timer1.interval=500
 Timer1.Enabled=True
 dtNextTime=DateAdd("n",5,Now)
End Sub

Private Sub Timer1_Timer()
 if Now>=dtNextTime Then
  Timer1.Enabled=False
  
  '在此加入你的代码

  dtNextTime=DateAdd("n",5,Now)
  Timer1.Enabled=True
 End if
End Sub

此程序的关键是DateAdd函数,它用于计算在将来的五分钟内的时间。
goldstar3000 2003-11-12
  • 打赏
  • 举报
回复
用DateDiff 函数 和timer控件组合
可以定一小时以上,甚至于一天,一个月都可以
evbsky 2003-11-12
  • 打赏
  • 举报
回复
用timegettime函数
donggm 2003-11-12
  • 打赏
  • 举报
回复
可以使用循环语句,让每分钟判断一次,且自减1,当从60次就有一个小时了,从而转到执行你的程序了
atao1128 2003-11-12
  • 打赏
  • 举报
回复
不能把间隔时间设置为如一小时吗,我希望每小时执行我的程序,这样不行吗
jhtaiyang 2003-11-12
  • 打赏
  • 举报
回复
设置的时间间隔(以毫秒计),在 Timer 控件 Enabled 属性设置为 True 时开始有效,例如,10,000 毫秒等于 10 秒。最大值为 65,535 毫秒,等于 1 分钟多一些。

7,789

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧