vb以时间触发事件

来源：百度知道 编辑：UC知道 时间：2024/05/22 18:16:52
在规定的时间里去触发一个事件,怎么写?
放在哪个对象下
比如:要字每天7:00:00时,程序做一次数据收集工作

Private Sub Timer1_Timer()
If Time = "7:00:00" Then MsgBox "到时"
End Sub

Timer控件设为1s响应一次,然后把Then后面的语句换成你要做的就可以了

1.在工具箱里找到Timer控件，画到窗体上。
2.设置Timer的Interval属性为1000
3.双击Timer控件，编写代码：
Private Sub Timer1_Timer()
If Format(Time) = "07:00:00" Then
'你要做的事。
End If
End Sub

注：Formatet 用于保证格式。

用API函数NetScheduleJobAdd添加一个计划任务，每天7:00就执行你的数据收集程序