VB制作倒计时器问题

来源：百度知道 编辑：UC知道 时间：2024/06/04 05:51:09
制作一个VB倒计时器，有2个命令按钮，3个在三个文本框，一个标签，中分别输入时、分、秒（分和秒最大输入为60），点击开始开始按设定时间倒计时，并在标签中显示倒计时时间，点击停止，停止计时。时间为0时0分0秒时，标签文字变为倒计时完成。（我在知道上搜到的都不大一样，哪位大侠帮我做下，我急用~~谢谢）
使用timer控件制作，我下午就要用，哪位高手会做请尽快帮忙，感激不尽~

Option Explicit
Dim h As Integer, m As Integer, s As Integer

Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
MsgBox "请正确小时数！"
Exit Sub
End If
If Not IsNumeric(Text2.Text) Then
MsgBox "请正确分钟数！"
Exit Sub
End If
If Not IsNumeric(Text3.Text) Then
MsgBox "请正确秒数！"
Exit Sub
End If
h = Text1.Text
m = Text2.Text
s = Text3.Text
If m >= 60 Then
MsgBox "分钟数必须小于60！"
Exit Sub
End If
If s >= 60 Then
MsgBox "秒数必须小于60！"
Exit Sub
End If
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Caption = "开始"
Command2.Caption = "停止"
Label1.Caption =