vb以时间触发事件

2025-01-24 18:01:29

推荐回答（3个）

回答1：

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

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

回答2：

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

注：Formatet 用于保证格式。

回答3：

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

最新问答

成为房奴，车奴，孩奴，养老奴的我们，未来还有希望么？

吉利汽车哪个国家的

高度近视眼做了近视手术后，等老了眼睛会瞎吗？

节奏感强的女声英文歌曲有哪些

比较描述北方和南方的自然环境特征和人文特征

警察局说是我老公涉嫌诈骗现已移交看守所今天看守所打电话说是有个纸条让我去看下请知道的

贝聿铭与苏州博物馆的介绍

家庭条件相差太大的两个人在一起生活后会幸福吗

1你最喜欢哪一位美国作家？他的代表作品是什么？为什么喜欢 2简述美国文学与战争的关系英文回答，谢谢

求这个女生的其他图片，我要用来做头像，一定要好看哦。。。。。