时间戳

首页 > 解决方案 > 进度条百分比计算

vb6 - 进度条百分比计算

问题描述

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

我曾尝试在旧论坛和 Youtube 上查找有关如何使其工作的信息，但由于 VB6 太老了，我找不到有用的信息。

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

标签： vb6progress-bar

解决方案

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 属性设置为平滑滚动。

使用它很简单，使用您的描述的最简单示例可能有一个 HeadsT​​oSell 文本框、一个 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

推荐阅读