Question

VB制作倒计时程序

我想做一个倒计时5分钟的程序，点一下command按钮就开始倒计时，然后在5分钟后，时间字体变红色，然后开始正着计时，并且要有停止按钮和暂停和清除按钮，谢谢各位大神了！急用，给多分

Answer 1

一个Timer，一个Label，三个Command，代码如下:
Public a As Long, NoTime As Boolean
Private Sub Form_Load()
    Command1.Caption= “开始”     Command2.Caption = “暂停”     Command3.Caption = “停止”
    NoTime = False
    a = 0
    Timer1.Interval = 1000
    Timer1.Enabled = False
End Sub
Private Sub Command1_Click()     Timer1.Enabled = True
End Sub                  
Private Sub Command2_Click()
    Select Case Command2.Caption
        Case “暂停”
            Timer1.Enabled = False             Command2.Caption = “继续”
        Case “继续”
            Timer1.Enabled = True             Command2.Caption = “暂停”
    End Select
End Sub
Private Sub Command3_Click()
    Load Me
End Sub
Private Sub Timer1_Timer()
    Select Case a
        Case 0 To 299
            If NoTime = False Then Label1.ForeColor = vbBlack
            If NoTime <> True Then
                a = a + 1
                Label1.Caption = “倒计时还有” & 300 - a & “秒”
            Else  
               a = a - 1
               Label1.Caption = “正计时” & 300 - a & “秒”
            End If
        Case 300
            NoTime = True
            Label1.ForeColor = vbRed
            a = a - 1
            Label1.Caption = “正计时” & 300 - a & “秒”
    End Select
End Sub                              

Answer 2

和官方回复库房就要看就看一个】

Answer 3

正计时多长时间？正计时完毕需要再次倒计时么？

追问

正计时没有时间限制，正计时完毕清除数据后，需要再次倒计时，所以需要一个清除的选项。还有，不知道显示时间时候可不可以把分、秒、微秒都显示出来呢？

追答

我HI你了，显示时间时候当然可以把分、秒、微秒都显示出来。
清除数据是啥意思？清除哪里的数据？

追问

我所说的清除数据就是从新开始从5分钟开始倒计时，是这个意思

追答

Dim DaoJishi As Boolean
Dim ClearIt As Boolean
Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Command3_Click()
ClearIt = True
DaoJishi = True
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Command2.Caption = "暂停"
Command3.Caption = "清除"
Timer1.Interval = 1000
Timer1.Enabled = False
i = 6 '倒计时5秒，如果是5分钟的话6改为301
DaoJishi = True
End Sub
Private Sub Timer1_Timer()

If ClearIt Then
i = 6 '倒计时5秒，如果是5分钟的话6改为301
ClearIt = False
Timer1.Enabled = True
DaoJishi = True
End If

If DaoJishi Then
Label1.ForeColor = vbBlack
i = i - 1
If i = 0 Then
DaoJishi = False
Label1.ForeColor = vbRed
End If
Else
i = i + 1 '正计时
End If
Label1.Caption = DateAdd("s", i, 0)
End Sub