vb ,我想用vb实现每隔5分钟执行一次另一小程序,怎么实现?

来源:百度知道 编辑:UC知道 时间:2024/06/22 04:50:22
TImer控件最大时间间隔是1分钟多点,怎么实现5分钟的定时呢?谁知道麻烦告知,谢谢了!

很简单嘛
Private Sub Form_Load()
Timer1.Interval = 1000'把timer1设置成每隔一秒种触发一次timer事件
End Sub

Private Sub Timer1_Timer()
Static a As Integer, b As Integer'全局变量
a = 1
If a = 60 Then b = 1:a=0'如果a=60了,就证明已经过了一分钟了。那么b再加上+1,如果b=5那么就已经过了5分钟了。
If b = 5 Then
'这后面写你想执行的代码
end if
End Sub

TImer控件最大时间间隔是1分钟多点,那你多用就个Timer不就行了,执行一个timer后再接着执行一个,时间凑够5分钟不就可以了.

Option Explicit
Dim n As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
n = n + 1
If (n Mod 300 = 0) Then
n = 0
MsgBox "五分钟到了"
End If
End Sub

再加一个变量计数就可以了啊
如果变量和TIMER都满足就执行你要的程序就好了

schtask命令