分类：电脑/网络-软件
问题：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才停止