Dim t
Dim start As Boolean
Private Sub Command1_Click()
If start = False Then
t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3)
start = True
End If
Timer1.Enabled = True
Command3.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
t = Val(Text1) * 3600 + Val(Text2) * 60 + Val(Text3)
Timer1.Enabled = True
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
start = False
Timer1.Interval = 1000
Label5.BackColor = vbYellow
Label1.Caption = "小时"
Label2.Caption = "分"
Label3.Caption = "秒"
Label4.Caption = "倒计时"
Label5.Caption = ""
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Command1.Caption = "开始"
Command2.Caption = "暂停"
Command3.Caption = "重新开始"
Command4.Caption = "退出"
Command3.Enabled = False
End Sub
Private Sub Timer1_Timer()
If t = 0 Then
Timer1.Enabled = False
MsgBox ("时间到")
start = False
Else
t = t - 1
End If
Label5.Caption = Format(Trim(Str(t \ 3600)), "00") & ":" & Format(Trim(Str((t Mod 3600) \ 60)), "00") & ":" & Format(Trim(Str(t Mod 3600) Mod 60), "00")
End Sub