请教大虾如何在一个窗体中实现倒计时功能

Question

请教大虾如何在一个窗体中，显示 00:05:00 动态的倒计时 

Answer 1

Option ExplicitDim lTime As LongPrivate Sub Form_Load()    lTime = 300 ' 100秒倒计时
    Timer1.Interval = 1000 ' 每秒发生一次Timer事件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 Mod 3600) \ 60
    strSecond = lTime - strHour * 3600 - strMin * 60    Me.Caption = Format(strHour, "#00") & ":" & Format(strMin, "#00") & ":" & Format(strSecond, "#00")    If lTime = 0 Then
        MsgBox "时间已到!"
    End If
End Sub

Answer 2

Dim finalTime As Date
Dim diff As Date
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
finalTime = Time + TimeSerial(0, 5, 0)
End SubPrivate Sub Timer1_Timer()
diff = finalTime - Time
Label1.Caption = Format(diff, "倒计时: hh:mm:ss")
If diff = TimeSerial(0, 0, 0) Then Timer1.Enabled = False
End Sub

Answer 3

上面的例子都用到了  Timer 控件 

Answer 4

谢谢几位，能不能帮我解决一下单选框的问题？我把它们的属性 value都设的是false,但是运行时 有一个是选中的，如果做选择题，刚开始是一个都不能选中的，能解决吗

Answer 5

如果你需要用4个单选框，你可以在Form里创建5个单选框，其中一个隐藏且value设为 true
这样就能达到你说的效果了