VB6.0中带进度条的倒计时怎么做

Question

如题所述

Answer 1

在窗体上画一个Timer控件、一个按钮，一个ProgressBar控件（需要添加部件Microsoft Windows Common Controls 6.0），用下面的代码，单击按钮开始10秒倒计时。
Private Sub Command1_Click()
Timer1.Enabled = True
ProgressBar1.Value = ProgressBar1.Max
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
ProgressBar1.Value = ProgressBar1.Max
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value - 10
If ProgressBar1.Value <= 0 Then
Timer1.Enabled = False
MsgBox "10秒倒计时结束！"
End If
End Sub