vb6.0 倒计时

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