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

答案:6 悬赏:50 手机版

解决时间 2021-11-09 04:45

提问者网友：鼻尖触碰
2021-11-08 05:39

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

最佳答案

五星知识达人网友：污到你湿
2021-11-08 06:39

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

全部回答

1楼网友：你可爱的野爹
2021-11-08 10:11

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

2楼网友：千杯敬自由
2021-11-08 09:47

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

3楼网友：愁杀梦里人
2021-11-08 09:18

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=

4楼网友：一秋
2021-11-08 08:35

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

5楼网友：一袍清酒付
2021-11-08 07:32

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息