Interval不能为3600000秒
Interval为毫秒1000为一秒
若需要长时间的计时器
就用其他变量代替
在timer里面累加
如需要比较精确的 就用系统api GettickCount 来计时
毕竟timer实在是不精确太受影响了
长时间累计 误差很大
所以推荐 在timer里面调用 Gettickcount api 来计时
用变量来控制即可
Dim s As Long
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
s = s + 1
If s = 3600000 Then
MsgBox "到了"
s = 0
End If
End Sub
Timer1.Interval=3600000000
不能大于9999