Question

首先：是的我已搜索并检查了这些：
* VB - progress bar not incrementing correct amounts?
* Progress bar and percents

问题：为＆＃34;百分比＆＃34;做进度条和标签的最佳方法是什么？完成？

我的情景：我有一个检查列表框，我正在循环处理每个项目。

我尝试了什么 ：第一个搜索结果显示使用计数作为最大值，如下所示：

ProgressBar1.Maximum = ListBox1.Items.Count
ProgressBar1.Increment(1)

这适用于进度条，但不适用于文字标签，如果物品超过100，您显然会得到类似的内容

231％完成

等。

我的想法是使用IF语句并检查总项目是否大于/小于100但是我遇到了一些问题。

这是我的代码，但请告知最佳解决方案。

我的代码：

Sub PercentComplete(ByVal Total As Long)

        Dim Notch As Integer = 100 / Total

        If Total > 100 Then
            'If the total is greater than 100
            Dim intPctText As Integer = Math.Round(Total / Notch, 10)
            lblPct.Text = intPctText & "%"
        Else
            'If the total is less than 100
            lblPct.Text = Notch.ToString & "%"
        End If

    End Sub

进度条和百分比标签

0 个答案: