如何在vb中完成十个小时或是更长时间的定时

vb中完成十个小时或是更长时间的定时

应该是你对VB中的定时器有所了解了，可以先做一个60秒的定时器（刚好不超过VB的最大值65536毫秒），在定时器里面进行计时，每60次就是1小时，要做个几十小时不难吧；当达到定时次数（即时间）后，触发另外一个定时器（这个芹森猛新定时器，可以设置定时时间是10毫秒，反应足够了吧），新定时器里面设置关闭自身的功能，使之不再触发，即可完成一次周期；

到第2周期的时候，嫌桥60秒的定春薯时器中，重新初始化即可实现 循环触发。

你可以用变量控制啊。设置间隔为你想要的精度（小时：3600000毫秒），就可以用时间对其进行触发和判断啦。
先定义一个整数型变量，将其作为分钟/小时数，再在计时器触发事件的函数中，进行自加操作旁拍。再进行判断，是否达到条件，就可以编写你的代码啦。

如：十小时，控件：计时器Timer1
在窗体中编写：

'计数器
Private inc As Integer
'窗体加载代码
Private Sub Form_()
inc = 0 '初始化枯轿变量
Timer1.Interval = 3600000 '设置间隔
End Sub
'触发代码
Private Sub Timer1_Timer()
'变量自加
inc = inc + 1
'如果等于十（每小时调用一次，共运败羡十次）
if(inc = 10) Then
'调用代码
End If
End Sub

Private Sub Form_Load()
Label1.Caption = "10:00:00"衫运明 '时间悄盯可自行设定
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = CDate(Label1.Caption) - 1 /或告 24 / 60 / 60
End Sub