vb6.0 倒计时

返回顶部
查看留言
转到底部

现在的位置: 首页 > 综合 > 正文

2013年08月31日 ⁄ 综合 ⁄ 共 915字 ⁄ 字号小中大 ⁄ 评论关闭

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