- VB做个定时器怎么做要求有2个功能1.定时器可以设定某个时间,比
- 要求有2个功能
1.定时器
可以设定某个时间,比如说11:25:30 (小时:分:秒)
到了这个时间响,要有个动态提示剩余多少小时
:分:秒,并且可以设置响音乐多长时间.
2.倒计时
可以设定某个时间,比如说11:25:30 (小时:分:秒)
过了11小时25分30秒后响音乐,也要有个动态提示剩余多少小时:分:秒,并且可以设置响音乐多长时间.
谢谢
- Optn Explicit
Dim Time1 As Date '当前时间
Dim Time2 As Date '定时时间
Private Sub Form_Load()
Time2 = "8:09:31" '设置定时的时间,24小时制
Timer1.Interval = 1000 '设置计时器每秒钟运行一次
Timer1.Enabled = True '计时器开始运行
End Sub
Private Sub Timer1_Timer()
Time1 = Time() '获取当前时间
If Time1 < Time2 Then Exit Sub '如果没有到定时时间,退出
Timer1.Enabled = False '计时器停止运行
'这下面写你要执行的代码。例如:
MsgBox "到点了!"
End Sub
窗体上添加一个label控件,一个Timer控件(表的形状)
TIMER控件的INTERVAL设置成1000
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, " ")
If Label1.Caption = "09.00" Then
MsgBox "下课了"
End If
End Sub
这段程序可以提示“下课了”一分钟。直到时间到了9.01才停止