
VB倒计时怎么做 20
DimiAsIntegerPrivateSubCommand1_Click()(计时器开始工作)(?)EndSubPrivateSubTimer1_Timer()i=(?...
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
求?里面怎么填,窗体上只有一个标签,命令按钮,和计时器 展开
Private Sub Command1_Click() (计时器开始工作)
( ? )
End Sub
Private Sub Timer1_Timer()
i = ( ? )
If i > 0 Then
( ? )
else
label1.caption="时间到"
( ? )
( ? )
end if
End Sub
求?里面怎么填,窗体上只有一个标签,命令按钮,和计时器 展开
6个回答
展开全部
timer1.enabled=true
timer1.interval=1000
i=200 ‘你想设定的倒计时时间
i=i-1
timer1.enabled=false
i=200
timer1.interval=1000
i=200 ‘你想设定的倒计时时间
i=i-1
timer1.enabled=false
i=200
追问
不行诶,我少打了个,在command1下面还有个 i=10 按照你的代码输入进去了,不能动- -
追答
timer1.enabled=true
你没有打进去
timer1.Enabled =True 是让计时器工作的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询