一个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