Question

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

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

Private Sub Timer1_Timer()
Static a As Integer, b As Integer
a = 1
If a = 60 Then
b = 1:a=0
If b = 5 Then
“...”
end if
End Sub
这代码我怎么看都只是5分钟到了就执行一次代码后就结素了程序，我想要的是每隔5分钟执行一次 “...”中 的代码，求高手解释以下吧，谢谢！

Answer 1

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

Answer 2

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

Answer 3

先给你一种方法
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为秒

Answer 4

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

Answer 5

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