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位于公共控件库中，因此您需要在“工具箱组件”列表中选择Microsoft Windows Common Controls 6.0，然后才能在工具箱中使用它。

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

使用起来很容易，使用您的描述的最简单的示例可能具有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

进度条百分比计算

1 个答案: