Question

求助一道关于时钟的问题窗体上添加一个计时器和一个label1,计时器每秒触发一次,label1上显示数字为5,设计使得程

Answer 1

你看下,是不是要这样子：

Private Sub Form_Load()

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Label1.Caption = Val(Label1.Caption) - 1

If Label1.Caption = "0" Then

Timer1.Enabled = False '或 Timer1.Interval = 0

End If

End Sub

主要用计时器的Enabled和Interval两个属性.