51.txt

来自「VB文章集（含API、窗口、数据库、多媒体、系统、文件、等等）」· 文本 代码 · 共 23 行

让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函数，它用于计算在将来的五分钟内的时间。