VB 每隔5分钟执行一次程序

VB 每隔5分钟执行一次程序

VB可以使用Timer控件来实现按规定时间执行程序的目的。
Timer 控件，通过引发 Timer 事件，Timer 控件可以有规律地隔一段时间执行一次代码。
Interval 属性，返回或设置对 Timer 控件的计时事件各调用间的毫秒数。
实现代码如下：
Option Explicit
    Dim I As Long

Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
    I = I + 1
    If I Mod 300 = 0 Then
        I = 0
        '写需要执行的代码
        Label1.Caption = Time
    End If
End Sub

Timer1不调用Stop就会一直运行下去。

“...”前面将变量b赋初值0.

dim i as long
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
i=i+1
if i mod 360=0 then
i=0
'执行代码

end if
End Sub

参考资料：i=

其实这段代码怎么执行 a就是=1 =..=...

先给你一种方法
timer可以设置为1分钟

Private Sub Form_Load()
Me.Timer1.Interval = 60000
End Sub

Private Sub Timer1_Timer()
Static m As Long
m = m + 1
If m = 5 Then
MsgBox "执行"
m = 0
End If
End Sub

第二种，如果非要设置为1000毫秒
Private Sub Form_Load()
Me.Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static m As Long, s As Integer
s = s + 1
If s = 60 Then
m = m + 1
If m = 5 Then
MsgBox "执行"
m = 0
End If
s = 0
End If
Debug.Print s
End Sub
'm为分钟,s为秒