vb6.0 倒计时

最新推荐文章于 2022-08-09 22:50:47 发布

a771948524

最新推荐文章于 2022-08-09 22:50:47 发布

阅读量2.2k

点赞数 1

分类专栏： vb.net

本文链接：https://blog.csdn.net/zxlstudio/article/details/10588969

版权

vb.net 专栏收录该内容

43 篇文章 2 订阅

订阅专栏

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