编程，倒计时装置

来源：百度知道 编辑：UC知道 时间：2024/05/27 16:31:02
有一个label1，它的caption=60
用timer1，使一个label1从60减为0，在0的时候，使pic停止工作。

代码是什么

Private Sub Form_Load()
Label1.Caption = 60
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If Label1.Caption = 0 Then
Timer1.Enabled = False
Else
Label1.Caption = Label1.Caption - 1
End If
End Sub

abel1.caption=60
timer1.time()
label1.caption=abel1.caption-1
if label1.caption=0 then ....
end sub
把PIC停止工作说明;./
如果是清除里面图象.....那就是PICTURE1.PICTURE=NONE