在VB2005中编一个倒计时（timer控件）的程序

来源：百度知道 编辑：UC知道 时间：2024/05/25 05:59:00
只要简单的能倒计时几秒就行了，时间到了后弹出消息框。
显示时间到了后，label时间继续倒计时，并显示负数，怎么让他停止在0

Private Sub form_load()
Label1.Caption = 10
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim a
Label1.Caption = Label1.Caption - 1
If Label1.Caption = 0 Then
MsgBox "时间到！"
Unload Me
End If
End Sub

Dim i As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
i = 60
End Sub

Private Sub Timer1_Timer()
i = i - 1
Label2.Caption = i
If i = 0 Then
MsgBox "时间到"
End If
End Sub

timer每执行一次，时间就自减1，就可以实现倒计时了。
时间到了之后，用msgbox弹出信息就可以了。
当label时间为0后，就停止timer就可以了。

双击控件 ,在里面写:

msgbox "时间到!!!"

至于几秒,就在timer控件的属性里面interval里写上,1000是指一秒