下面的文章可以决你的问题 你可以参照vb中的msdn帮助查找datdiff函数使用方法 让Timer控件每5分钟触发一次事件 Timer控件的Interval属性可以设置为0到65535之间的任意直,所以用Timer触发事件的最大时间间隔只能有65秒,因此如何能设置更长的时间间隔呢?可以在事件中建立代码,用系统时间确定这个时间间隔。 Dim dtNextTime as DatePrivate Sub Form_load() Timer1.interval=500 Timer1.Enabled=True dtNextTime=DateAdd("n",5,Now) End SubPrivate Sub Timer1_Timer() if Now>=dtNextTime Then Timer1.Enabled=False
'在此加入你的代码 dtNextTime=DateAdd("n",5,Now) Timer1.Enabled=True End if End Sub此程序的关键是DateAdd函数,它用于计算在将来的五分钟内的时间。
可以定一小时以上,甚至于一天,一个月都可以
你可以参照vb中的msdn帮助查找datdiff函数使用方法
让Timer控件每5分钟触发一次事件 Timer控件的Interval属性可以设置为0到65535之间的任意直,所以用Timer触发事件的最大时间间隔只能有65秒,因此如何能设置更长的时间间隔呢?可以在事件中建立代码,用系统时间确定这个时间间隔。
Dim dtNextTime as DatePrivate Sub Form_load()
Timer1.interval=500
Timer1.Enabled=True
dtNextTime=DateAdd("n",5,Now)
End SubPrivate Sub Timer1_Timer()
if Now>=dtNextTime Then
Timer1.Enabled=False
'在此加入你的代码 dtNextTime=DateAdd("n",5,Now)
Timer1.Enabled=True
End if
End Sub此程序的关键是DateAdd函数,它用于计算在将来的五分钟内的时间。