进度条倒退

来源：百度知道 编辑：UC知道 时间：2024/06/25 17:17:02
在VB中，怎么使进度条倒退？如计时从60到0，进度条也同步减少

Private Sub Command1_Click()
Me.ProgressBar1.Value = 60
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100 '0.1秒
Me.ProgressBar1.Max = 60
Me.ProgressBar1.Value = 60
End Sub

Private Sub Timer1_Timer()
If Me.ProgressBar1.Value <= 0 Then
Timer1.Enabled = False
Else
Me.ProgressBar1.Value = Me.ProgressBar1.Value - 1
End If
End Sub

Option Explicit
Dim sum As Integer

Private Sub Form_Load()
HScroll1.Value = 60
End Sub

Private Sub Timer1_Timer()
sum = sum + 1
If sum <= 60 Then
HScroll1.Value = 60 - sum
Else: Timer1.Enabled = False
End If
End Sub