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

发布网友发布时间：2024-10-04 21:16

共2个回答

热心网友时间：2024-10-05 00:14

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

热心网友时间：2024-10-05 00:11

Private Sub Form_Load()
Timer1.Interval = 60000 '每分钟触发一次
End Sub

Private Sub Timer1_Timer()
Static iCount As Integer
iCount = iCount + 1
If iCount = 60 Then
iCount = 0
'每小时触发一次的代码
End If
End Sub

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

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