请问VB中怎样实现文本框的倒计时显示？

来源：百度知道 编辑：UC知道 时间：2024/05/20 18:08:23
每秒中减少1直至为0

比如100 下次显示99 98 97…… 3 2 1 0

可以用 Timer 控件来实现，设置它的 Interval 属性为1000，即1秒，然后在它的Timer事件里写代码。如：
Private mintNow as integer

Sub form_load()
mintnow = 100
Timer1.Enabled = true
end sub

Sub Timer1_Timer()
if mintnow > 0 then
Text1.Text = mintNow
mintNow = mintNow - 1
else
Timer1.Enabled = False
end if
End Sub

Private Sub Form_Load()
Text1.Text = 100
Timer1.Interval = 1000
Timer1.Enabled = true
End Sub

Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
if text1.text="0" then
Timer1.Enabled = False
msgbox "时间到"
end if
End Sub

Private Sub Form_Load()
Text1.Text = 100
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) - 1
End Sub