Question

VB倒计时怎么做

Dim i As Integer
Private Sub Command1_Click() (计时器开始工作)
( ? )
End Sub

Private Sub Timer1_Timer()
i = （ ？ ）
If i > 0 Then

（ ？ ）
else
label1.caption="时间到"
（ ？ ）
（ ？ ）
end if
End Sub
求？里面怎么填，窗体上只有一个标签，命令按钮，和计时器

Answer 1

timer1.enabled=true
timer1.interval=1000

i=200 ‘你想设定的倒计时时间

i=i-1

timer1.enabled=false
i=200

追问

不行诶，我少打了个，在command1下面还有个 i=10 按照你的代码输入进去了，不能动- -

追答

timer1.enabled=true

你没有打进去
timer1.Enabled =True 是让计时器工作的