记时器出问题了！！！

[atao1128]

Timer1.Interval = 60000
为什么当我写： Timer1.Interval = 120000时就出错了呢，是什么原因，我想把间隔时间加大，行不行

[jhtaiyang]

设置的时间间隔（以毫秒计），在 Timer 控件 Enabled 属性设置为 True 时开始有效，例如，10，000 毫秒等于 10 秒。最大值为 65，535 毫秒，等于 1 分钟多一些。

[atao1128]

不能把间隔时间设置为如一小时吗，我希望每小时执行我的程序，这样不行吗

[donggm]

可以使用循环语句，让每分钟判断一次，且自减1，当从60次就有一个小时了，从而转到执行你的程序了

[evbsky]

用timegettime函数

[goldstar3000]

用DateDiff 函数 和timer控件组合
可以定一小时以上,甚至于一天,一个月都可以

[goldstar3000]

下面的文章可以决你的问题
你可以参照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函数，它用于计算在将来的五分钟内的时间。

[atao1128]

谢了，搞定拉