怎样用VB设计一个倒计时程序？

来源：百度知道 编辑：UC知道 时间：2024/05/13 07:08:39
设计一个计时器，能够设置倒计时的时间，并进行倒计时，只需要一个命令按钮，一个label控件，时间到了用msgbox语句输出。
时间的格式为00：00：00,要用timer控件。

设置的倒计时时间是怎么样的格式？
X天X分X秒？还是X秒？
以下以X秒为例（天数等可以转换为秒数再倒计时），添加Text1以输入倒计时秒数，添加Timer1:

Dim starttime As Single
Private Sub Command1_Click()
If Text1.Text <> "" And IsNumeric(Text1) Then
starttime = Timer
Timer1.Interval = 1000
Label1.Caption = Val(Text1.Text)
End If
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Val(Text1.Text) - (Timer - starttime)
If (Timer - starttime) > Val(Text1.Text) - 1 Then
l = MsgBox("时间到了！")
If l = 1 Then End
End If
End Sub

一个窗体上 加入一个命令按钮，一个label控件 还要一个timer控件
在窗体代码中加入如下代码
Dim nTime As Integer

Private Sub Command1_Click()
'设定到时时间
nTime = Val(InputBox("设定时间"))
Label1.Caption = "离到时还有" & nTime & "秒"
'开计时器
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If (nTime <