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

最新问答

为何鲁智深打死镇关西以后，选择出家官府就不追究了？

20l6年东昌中学小升初成绩单l

南京脑科医院在什么地方，怎么走？

妇科检查项目霉菌培养结果未生长是什么意思

做IE好还是做生产管理好,哪个有发展前途?

1965年公历一月十二日出生农历是多少？是什么属相？哪为知道请告知

编程语言，S=1+2+3+…+N，N>100 时停止，显示S的值和最后一个N的值

全面深化改革要强化什么意识和导向

我是个高二的女孩子，天天玩手机不写作业我爸很生气他说要不把我打一顿，要不就没收我的手机我该怎么选择

去年唐山劳动技师学院分数线