« 上一篇下一篇 »

VB 让程序每5秒钟执行一个命令 怎么实现?

 

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

Leave a Comment

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。