191问答库 > 怎么用vb做个定时器，比如说到9：00就有提示,thanks!

怎么用vb做个定时器，比如说到9：00就有提示,thanks!

2025-03-04 11:40:05

推荐回答（5个）

回答1：

窗体上添加一个label控件，一个Timer控件（表的形状）
TIMER控件的INTERVAL设置成1000
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh.mm")
If Label1.Caption = "09.00" Then
MsgBox "下课了"
End If
End Sub
这段程序可以提示“下课了”一分钟。直到时间到了9.01才停止

回答2：

窗体上放一个定时器如timer1，定时器的刷新interval设置为1

代码如下

Private Sub Timer1_Timer()
If Time = "9:00:00" Then
MsgBox "下课了!"
End If
End Sub

回答3：

添加一个Timer控件，然后通过设置好它的间隔，再加入不断检查当前系统时间的代码，一旦符合条件就可以运行相应代码。

回答4：

用MSGBOX 如果程序不在最前你是看不到的.

最好的是弹出一个新窗体,并把该窗体置顶.

时间的判断如上就可以了.

回答5：

If left(time,5)="09:00" then
Msgbox "nine!"
End if