Visual Basic 进度条 ProgressBar

ProgressBar 表示 Windows 进度条控件。它用于向用户提供有关某些任务状态的视觉反馈。它显示了一个随着操作的进行从左到右填充的条形图。

让我们单击工具箱中的 ProgressBar 控件并将其放置在表单上。

进度条的主要属性是 Value(值)、Maximum(最大值)和Minimum(最小值)。Maximum 和Minimum 属性用于设置进度栏可以显示的最小值和最大值。Value 属性指定进度条的当前位置。

ProgressBar 控件通常在应用程序执行复制文件或打印文档等任务时使用。对于用户来说，如果没有视觉提示，应用程序可能看起来没有响应。在这种情况下，使用 ProgressBar 让程序员可以提供进度的可视状态。

ProgressBar 控件的属性

以下是 ProgressBar 控件的一些常用属性:

编号	属性 & 描述
1	AllowDrop 重写 Control.AllowDrop 属性。
2	BackgroundImage 获取或设置 ProgressBar 控件的背景图像。
3	BackgroundImageLayout 获取或设置 ProgressBar 背景图像的布局。
4	CausesValidation 获取或设置一个值，该值表示控件在接收焦点时是否导致对任何需要验证的控件执行验证。
5	Font 获取或设置 ProgressBar 进度栏中文本的字体。
6	ImeMode 获取或设置 ProgressBar 的输入法编辑器（IME）。
7	ImeModeBase 获取或设置控件的 IME 模式。
8	MarqueeAnimationSpeed 获取或设置进度块在 ProgressBar 进度条上滚动所需的时间段（以毫秒为单位）。
9	Maximum 获取或设置控件范围的最大值。
10	Minimum 获取或设置控件范围的最小值。
11	Padding 获取或设置 ProgressBar 控件的边缘与其内容之间的空间。
12	RightToLeftLayout 获取或设置一个值，该值表示是否从右向左显示 ProgressBar 及其包含的任何文本。
13	Step 获取或设置调用 PerformStep 方法增加 ProgressBar 进度条当前位置的量。
14	Style 获取或设置在 ProgressBar 进度栏上指示进度的方式。
15	Value 获取或设置 ProgressBar 进度条的当前位置。

ProgressBar 控件的方法

以下是 ProgressBar 控件的一些常用方法:

编号	方法名称 & 描述
1	Increment 按指定量递增 ProgressBar 控件的当前位置。
2	PerformStep 按指定的量递增该值。
3	ResetText 将文本属性重置为其默认值。
4	ToString 返回表示 ProgressBar 进度条控件的字符串。

ProgressBar 控件的事件

以下是 ProgressBar 控件的一些事件:

编号	事件 & 描述
1	BackgroundImageChanged 在 BackgroundImage 属性的值更改时发生。
2	BackgroundImageLayoutChanged BackgroundImageLayout 属性的值更改时发生。
3	CausesValidationChanged 当 CausesValidation 属性的值更改时发生。
4	Click 单击控件时发生。
5	DoubleClick 当用户双击控件时发生。
6	Enter 焦点进入控件时发生。
7	FontChanged 在 Font 属性的值更改时发生。
8	ImeModeChanged 当 ImeMode 属性的值更改时发生。
9	KeyDown 在控件具有焦点时用户按键时发生。
10	KeyPress 在控件具有焦点时用户按键时发生。
11	KeyUp 在控件具有焦点时用户释放键时发生。
12	Leave 当焦点离开 ProgressBar 控件时发生。
13	MouseClick 在鼠标单击控件时发生。
14	MouseDoubleClick 当用户双击控件时发生。
15	PaddingChanged 当 Padding 属性的值更改时发生。
16	Paint 当 ProgressBar 绘制时发生。
17	RightToLeftLayoutChanged RightToLeftLayout 属性更改时发生。
18	TabStopChanged TabStop 属性更改时发生。
19	TextChanged 在 Text 文本属性更改时发生。

实例

在本例中，让我们在运行时创建一个进度条。让我们双击表单，并在打开的窗口中输入以下代码:

Public Class Form1
  Private Sub Form1_Load(sender As Object, e As EventArgs) _
   Handles MyBase.Load
   'create two progress bars
   Dim ProgressBar1 As ProgressBar
   Dim ProgressBar2 As ProgressBar
   ProgressBar1 = New ProgressBar()
   ProgressBar2 = New ProgressBar()
   'set position
   ProgressBar1.Location = New Point(10, 10)
   ProgressBar2.Location = New Point(10, 50)
   'set values
   ProgressBar1.Minimum = 0
   ProgressBar1.Maximum = 200
   ProgressBar1.Value = 130
   ProgressBar2.Minimum = 0
   ProgressBar2.Maximum = 100
   ProgressBar2.Value = 40
   'add the progress bar to the form
   Me.Controls.Add(ProgressBar1)
   Me.Controls.Add(ProgressBar2)
   ' Set the caption bar text of the form.
   Me.Text = "cankaoshouce.com"
  End Sub
End Class

当使用 Microsoft Visual Studio 工具栏上的开始按钮执行并运行上述代码时，它将显示以下窗口:

Visual Basic 进度条 ProgressBar

ProgressBar 控件的属性

ProgressBar 控件的方法

ProgressBar 控件的事件

实例

分类导航