VB程序设计：倒计时

来源：百度知道 编辑：UC知道 时间：2024/05/12 18:43:20
怎样设计才能将倒计时在秒的个位数时，格式为‘0X’？

比如，倒计时还有5秒结束“00：05”

Dim a, b, c As String
Private Sub Command1_Click()
a = 1
b = 1
c = 5
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

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

Private Sub Timer1_Timer()
a = Format(a, "00")
b = Format(b, "00")
c = Format(c, "00")
Label1.Caption = a & ":" & b & ":" & c
If c = 0 Then
If b = 0 Then
If a = -1 Then
Timer1.Enabled = False
Label1.Caption = "倒计时完成"
Else
c = c - 1
b = 59
c = 59
End If
Else
b = b - 1
c = 59
End If
Else
c = c - 1
End If
End Sub

用时间函数取得当前秒数再定义一个基础秒数(小于当前秒数),用当前秒数减基础秒,重复执行几次(执行过程中基础秒数要自加)