Question

全屏幕秒表倒计时

从5分钟开始倒计时 越简洁越好 自己做的最好
好的一定加分
是用的VB？ 怎么有错误语句啊？

Answer 1

Private Sub Command1_Click()

    Timer1.Interval = 1000

    Timer1.Enabled = True

    Command1.Enabled = False

    Command2.Enabled = True

End Sub

Private Sub Command2_Click()

    Timer1.Enabled = False

    Command2.Enabled = False

    Command1.Enabled = True

    

End Sub

Private Sub Command3_Click()

    Label1.Caption = 300

    Timer1.Enabled = False

    Timer1.Interval = 1000

End Sub

Private Sub Form_Load()

    Command2.Enabled = False

End Sub

Private Sub Timer1_Timer()

    Label1.Caption = Label1.Caption - 1

    If Label1.Caption <= 0 Then

        MsgBox "时间到！", vbOKOnly + vbInformation, "时间到了！"

        Label1.Caption = 0

        Timer1.Enabled = False

    End If

End Sub 

PS：我用的是VB6.0 需要的控件，一个timer，三个button，一个label

Answer 2

先采纳，然后HI我！我发链接给你！