Question

VB倒计时怎么做

Answer 1

Dim i As Integer

Private Sub Command1_Click() '(计时器开始工作)

　Command1.enabled=false'倒计时开始了，此按钮不能再次点击

　Timer1.Enabled = True　’开始计时

　Timer1.Interval = 1000　‘一秒一刷新界面

　 i=60　'要倒计时的时间　，此例假设为60秒，你可实际更改

End Sub

Private Sub Timer1_Timer()

　i = i-1　’递减

　If i > 0 Then

　　Label1.Caption = "剩余" & i & "秒"

　else

　　label1.caption="时间到"

　　timer1.enabled=false　‘停止计时

　　Command1.Enabled = True　’按钮可用

　end if

End Sub

张志晨：仅供参考。