VB制作倒计时程序

2024-12-20 05:15:50
推荐回答(1个)
回答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