Question

vb定时运行

我现在有个程序，Command1_Click里面已经好了，现在想加一个定时程序的选项，选择就可以每个小时或每天运行一次，比如每小时就是间隔1个小时运行Command1_Click里的程序，每天就是在每天的一个整点运行

Answer 1

添加一个Timer

一、间隔一小时运行：Timer1.Interval = 60000即1分钟，每分钟判断一次
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i Mod 60 > 0 Then Exit Sub
Command1.Value = True
i = 0
End Sub

二、每天正点运行（假定为12点整）：Timer1.Interval = 1000即1秒，每秒判断一次
Private Sub Timer1_Timer()
If Hour(Now) = 12 And Minute(Now) + Second(Now) = 0 Then Command1.Value = True
'If Val(Format(Now, "ssmmhh")) = 12 Then Command1.Value = True'本行代码与上行同效
End Sub

以下三行代码同效：
Command1.Value = True
Command1_Click
Call Command1_Click

若Command1为控件数组，以下三行代码同效：
Command1(0).Value = True
Command1_Click 0
Call Command1_Click (0)

追问

我如果2个都要做一个选择呢？

追答

Timer1.Interval = 1000
Private Sub Timer1_Timer()
Static i As Integer
if 每天运行 then'可加两个option：if option(0).value then
If Val(Format(Now, "ssmmhh")) = 12 Then Command1.Value = True'
exit sub
end if
i = i + 1
If i Mod 3600 > 0 Then Exit Sub
Command1.Value = True
i = 0
End Sub

Answer 2

你可以用一个timer控件完成 取现行时间等于某一个你想要的值时候 执行command1的单击命令

Answer 3

timer1的interval设为1000。

Private Sub Timer1_Timer()
Dim t As Date
Dim m As Integer, s As Integer
t = Time
m = Minute(t)
s = Second(t)
If m = 0 And s = 0 Then Call Command1_Click
End Sub