Question

VB分秒倒计时

你好~！我想用两个Label控件和一个timer控件做一个分秒倒计时，当Label控件的Caption设定的数值全部倒计为0时执行指定的命令，前提是不要按钮的...这该怎么写？望大师解答，谢谢~！我写到是可以倒计，但是我不知道如何监视两个Label数值倒计到0，我只会写其中某一个数值倒计到0时执行命令的代码....

Answer 1

一个timer控件 三个label控件 三个textbox控件 一个按钮Private Sub Command1_Click()
lTime = InputBox("输入倒计时的时间（以秒为单位）") ' 100秒倒计时
Timer1.Interval = 1000 ' 每秒发生一次Timer事件
End SubPrivate Sub Command2_GotFocus()
If Command1.Enabled = True Then
Command1.SetFocus
End If
End SubPrivate Sub Text1_GotFocus(Index As Integer)
Command2.SetFocus
End SubPrivate Sub Timer1_Timer()
Dim strHour As String '时
Dim strMin As String '分
Dim strSecond As String '秒
lTime = lTime - 1
strHour = lTime \ 3600
strMin = lTime \ 60
strSecond = lTime - strHour * 3600 - strMin * 60
Me.Caption = Format(strHour, "#00 ") & ": " & Format(strMin, "#00 ") & ": " & Format(strSecond, "#00 ", vbFriday)
'Form1.Cls
'Print Format(strHour, "#00 ") & ": " & Format(strMin, "#00 ") & ": " & Format(strSecond, "#00 ")
Command1.Caption = "倒计时(" & lTime & ")"
Command1.Enabled = False
If strSecond = 0 Then
MsgBox "时间到！"
Timer1.Interval = 0
Command1.Enabled = True
Command1.SetFocus
End If
Text1(2).Text = Format(strSecond, "#00 ")
Text1(1).Text = Format(strMin, "#00 ")
Text1(0).Text = Format(strHour, "#00 ")
End Sub

追问

不要时的可以写么？只需要分和秒的...拜托了，谢谢~！