VB.NET 进度条控件

2025年3月17日 | 阅读 3 分钟

用户使用 Windows 进度条控件来确认某些已定义任务的进度状态，例如从网络下载大文件、复制文件、安装软件、计算复杂结果等。

让我们通过从工具箱中拖动一个进度条控件并将其放到 Windows 窗体上来创建一个进度条。

步骤 1：第一步是从工具箱中拖动 ProgressBar 控件并将其放到窗体上。

步骤 2：将 ProgressBar 添加到窗体后，我们可以通过单击 ProgressBar 控件来设置 ProgressBar 的各种属性。

ProgressBar 控件的属性

以下是 VB.NET ProgressBar 控件的属性。

属性	描述
BackgroundImage（背景图片）	BackgroundImage 属性用于在进度条控件中设置背景图片。
MarqueeAnimationSpeed（动画速度）	它用于以毫秒为单位确定进度条的进度状态。
填充 (Padding)	Padding（内边距）属性用于通过在进度条控件中设置值来在进度条的边缘之间创建空间。
步骤	它用于获取或设置控件中的值，该值调用 PerformStep 方法，通过添加已定义的步长来增加进度条的当前状态。
最大值	它用于设置 Windows 窗体中进度条控件的最大长度。
最小值	它用于设置或获取 Windows 窗体中进度条控件的最小值。
AllowDrop	它获取一个值，该值表示进度条控件是否允许用户将其拖到窗体上。
风格	它用于设置一个值，该值表示应该在 Windows 窗体上显示进度条的类型。

ProgressBar 控件的方法

事件	描述
ForeColor	ForeColor 方法用于将其前景色重置为其默认值。
ToString	ToString 方法用于通过返回字符串来显示进度条控件。
递增	它用于通过定义指定的时间来增加进度条控件的当前状态。
PerformStep	PerformStep 方法用于通过设置 ProgressBar 属性中指定的步长来增加进度条。

ProgressBar 控件的事件

事件	描述
离开	当焦点离开进度条控件时，发生 Leave 事件。
MouseClick（鼠标点击）	当用户用鼠标单击进度条控件时，发生 MouseClick 事件。
BackgroundImageChanged（背景图片更改）	当进度条控件的背景属性更改时，发生 BackgroundImageChanged 事件。
TextChanged	当进度条控件中的文本属性更改时，发生该事件。
PaddingChanged（内边距更改）	当进度条控件中的内边距属性更改时，发生该事件。

此外，我们还可以参考 VB.NET Microsoft 文档以获取 ProgressBar 控件属性、方法和事件的完整列表，在 VB.NET 中。

让我们创建一个程序来显示 VB.NET Windows 窗体中的进度状态。

Progressbr.vb

Public Class Progressbr
    Private Sub Progressbr_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "javaTpoint.com" 'Set the title name for the form
        Button1.Text = "Show"
        Label1.Text = "Click to display the progress status of the ProgressBar"
        Label1.ForeColor = ForeColor.Green
        ProgressBar1.Visible = False

        'create a progress bars
        Dim Progressbr2 As ProgressBar = New ProgressBar()

        'set the progressbar position
        Progressbr2.Location = New Point(60, 70)
        'set the values for Progressbr2
        Progressbr2.Minimum = 0
        Progressbr2.Maximum = 500
        Progressbr2.Value = 470

        'add the progress bar status to the form.
        Me.Controls.Add(Progressbr2)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Visible = True

        Dim i As Integer
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 300

        For i = 0 To 300 Step 1
            ProgressBar1.Value = i
            If i > ProgressBar1.Maximum Then
                i = ProgressBar1.Maximum
            End If
        Next
        MsgBox("Successfully Completed")
    End Sub
End Class

输出