VB中timer控件每隔一小时事件发生一次 代码

VB中timer控件每隔一小时事件发生一次 代码

单靠一个控件 完成不了,你只可以 最长 65535 毫秒 定时,可以利一个公共变量(比如T)来计数,然后再在timer控件事件过程中第次使T 增(减)1,再判定T 是否到了规定的值.以下是参考代码:Dim T%Private Sub Form_Load() Timer1.Interval = 1000 '1000毫秒 Timer1.Enabled = True '计时器开始工作 T = 360 '置初值为360秒即1小时End SubPrivate Sub Timer1_Timer() T = T - 1 '每1000毫秒减1 If T = 0 Then T = 360 '重置初值为360,为下一次 '================== Print "此处放每小时要执行的代码" '================== End IfEnd Sub