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

编程论坛 → 开发语言 → 『 VB6论坛』 → 如何实现每隔5分钟运行一次程序？

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

取消只看楼主

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16
结帖率：85.71%

楼主

已结贴√ 问题点数：20 回复次数：1

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

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

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

end sub

搜索更多相关主题的帖子: 如何　

2012-06-07 11:13

yuk_yu

等　级：论坛游侠
帖　子：334
专家分：134
注　册：2009-3-16

第 2 楼

得分:0

回复楼主 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

收到的鲜花

Artless 于 2012-06-07 19:40 送鲜花 5朵附言：原创内容

2012-06-07 11:35

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-370996-1-1.html