[求助]如何做一个倒计时的程序,谢谢了~
小弟我需要一个倒计时的程序,请高手指点下,谢谢了~
在窗体添加一个Label1、Timer1
Private Sub Form_Load()
Timer1.Interval = 1000
Label1.Caption = 100
End Sub
Private Sub Timer1_Timer()
If Label1.Caption = "0" Then
MsgBox "时间到"
Timer1.Interval = 0
Else
Label1.Caption = Val(Label1.Caption) - 1
End If
End Sub