如何实现每隔5分钟运行一次程序？

yuk_yu 发布于 2012-06-07 11:13， 541 次点击

如何实现每隔5分钟运行一次程序？

每隔5分钟运行一次
sub yy()
msgbox "OK"

end sub

3 回复

yuk_yu2012-06-07 11:35

回复楼主 yuk_yu

Dim i As Integer
Private Sub Form_Load()
i = 0
Timer1.Interval = 1000
Timer1.Enabled = True
Form1.WindowState = 1
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i = 5 Then
i = 0
MsgBox "测试成功!"
End If
End Sub

风吹过b2012-06-07 15:44

测试成功，每 5秒弹出一个提示框，不错不错。

Artless2012-06-07 19:46

https://bbs.bccn.net/thread-332567-1-1.html