乌鲁木齐中核工业:关于VB中定时执行程序的问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/05/01 21:30:27
如何编写程序做一个每隔30分钟自动运行本身的一个过程的程序啊,最好能给出详细代码。

在窗体上添加一个timer控件。把它的inteval设为6000,再添加代码如下:
Private Sub Timer1_Timer()
Static i As Long
i = i + 1
If i Mod 300 = 0 Then
'ToDo 这里添加你的过程名
End If
End Sub

因为timer控件时间间隔最大值只有6.5秒,所以用一个变量i,每隔6秒递增。每达到30分钟执行特定代码

定时器 Timers