进度条滞后？

Question

我只是在 vb express 2008 中玩弄，我决定玩进度条控件。我设置了两个标签和一个计时器，以使进度条值上升，然后在达到极限时下降。然后它重复这个。它工作得很好，除了进度条对增量的响应很慢并且它在其增量周期结束时跳到最大值。我将计时器设置为 1 毫秒间隔，这是我的代码，

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    If Label2.Text = "100" Then
        number = number - 1
        Label3.Text = number
        ProgressBar1.Value = number
        ProgressBar1.Update()
    End If
    If Label3.Text = "0" Then
        number = number + 1
        Label2.Text = number
        ProgressBar1.Value = number
        ProgressBar1.Update()
    End If
End Sub

Answer 1

首先，我会将间隔设置为 500 之类的值，然后再逐步回到 400、300、200、100 等，直到获得所需的速度。

其次，假设 Label2 是您的 max 值，Label3 是您的 min 值，并且您想要您的进度条控件在最小值和最大值之间来回弹跳，我会做这样的事情：

Const MAX_VALUE = 100
Const MIN_VALUE = 0

Dim currentValue = 0
Dim isIncrementing = True

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick

    If currentValue = MAX_VALUE Then isIncrementing = False
    If currentValue = MIN_VALUE Then isIncrementing = True

    If isIncrementing Then currentValue += 1 Else currentValue -= 1

    ProgressBar1.Value = currentValue
    ProgressBar1.Update()

End Sub

由于我假设您的 Label2 和 Label3 是您的最小值/最大值，我还假设它们应该保持静态并且永不改变，这这就是为什么我不在Tick 事件中更改它们的值的原因。如果您想要一个当前值标签，那么添加它很容易，并且会同时更改ProgressBar1.Value。