Question

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

TImer控件最大时间间隔是1分钟多点，怎么实现5分钟的定时呢？谁知道麻烦告知，谢谢了！

Answer 1

很简单嘛
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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

schtask命令