进度条百分比计算

Question

我是 VB6 的新手，正在为企业（牛拍卖）编写一些代码。他们希望在主页上显示进度以显示销售中剩余的百分比。进度条将基于（剩余总头数/签入总头数）

我曾尝试在旧论坛和 Youtube 上查找有关如何实现此功能的信息，但由于 VB6 太旧，我找不到有用的信息。

我看过的所有视频和阅读过的论坛都显示进度条根据计时器或按钮移动。我需要它根据输入的其他信息（如果有意义的话）移动。

Answer 1

可在此处找到 VB6 ProgressBar 文档：https://docs.microsoft.com/en-us/previous-versions/visualstudio/visual-basic-6/aa443485(v%3dvs.60)

ProgressBar 在公共控件库中，因此您需要在工具箱组件列表中 select Microsoft Windows Common Controls 6.0 才能在工具箱中使用它。

我更喜欢将滚动属性设置为平滑滚动。

使用起来很简单，使用您的描述的最简单示例可能有一个 HeadsToSell 文本框、一个 StartAuction 按钮和一个 CowSold 按钮。单击 StartAuction 按钮将 ProgressBar Max 属性设置为头数，然后对于售出的每个头，单击 CowSold 按钮减少可用头数并更新 ProgressBar 值。

Option Explicit

Private CurrentHeadCound As Integer

Private Sub CowSold_Click()
  CurrentHeadCound = CurrentHeadCound - 1
  ProgressBar1.Value = CurrentHeadCound
End Sub

Private Sub StartAuction_Click()

  ProgressBar1.Max = HeadsToSell.Text
  ProgressBar1.Value = ProgressBar1.Max
  CurrentHeadCound = ProgressBar1.Max

End Sub

进度条百分比计算

Progress Bar Percent Calculation

vb6

progress-bar