MSDN使用 ProgressBar 控件 ProgressBar 控件可用图形显示事务的进程。该控件的边框在事务进行过程中逐渐被充满。其 Value 属性决定该控件被填充多少。其 Min 和 Max 属性设置该控件的界限。要进行需要几秒钟才能完成的操作时，就要使用 ProgressBar。同时还必须知道该过程到达已知端点需要持续多长时间，并将其作为该控件的 Max 属性来设置。提示 为用户提供可视的反馈信息，表明这个耗时的操作还要进行多长时间才能完成，这可以给人以改进了性能的感觉。用途 通告用户通过网络进行文件传输的进展情况。 反映要持续几秒钟以上的过程的进展情况。 通告用户正在运行的复杂算法的进展情况。 使用 Value、Min 和 Max 属性显示进展情况 要显示某个操作的进展情况，Value 属性将持续增长，直到达到了由 Max 属性定义的最大值。这样该控件显示的填充块的数目总是 Value 属性与 Min 和 Max 属性之间的比值。例如，如果 Min 属性被设置为 1，Max 属性被设置为 100，Value 属性为 50，那么该控件将显示百分之五十的填充块，如下所示：将 Max 属性设置为已知的界限 要对 ProgressBar 进行编程，则必须首先确定 Value 属性攀升的界限。例如，如果正在下载文件，并且应用程序能够确定该文件有多少千字节，那么可将 Max 属性设置为这个数。在该文件下载过程中，应用程序还必须能够确定该文件已经下载了多少千字节，并将 Value 属性设置为这个数。在不能确定 Max 属性的情况下，则需要用 Animation 控件不停地显示动画，直到在结束事件中调用 Stop 方法为止。详细信息 有关使用 Animation 控件的更详细内容，请参阅“使用 Animation 控件”。用 Visible 属性隐藏 ProgressBar 在操作开始之前通常不显示进度栏，并且在操作结束之后它应再次消失。在操作开始时，将 Visible 属性设置为 True 以显示该控件；并在操作结束时，将该属性重新设置为 False 以隐藏该控件。
MSDNProgressBar 控件 ProgressBar 控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。语法ProgressBar说明 ProgressBar 控件监视操作完成的进度。 ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。由于使用方块来填充控件，因此所填充的数量只能是接近于 Value 属性的当前设置值。基于控件的大小，Value 属性决定何时显示下一个方块。ProgressBar 控件的 Height 属性和 Width 属性决定所填充控件的方块的数量和大小。方块数量越多，控件就越能精确地描述操作进度。为了增加显示方块的数量，需要减少控件的 Height 或者增加其 Width。BorderStyle 属性的设置值同样影响方块的数量和大小。为了适应边框要求，方块的大小要更小一点。可以用 ProgressBar 控件的 Align 属性把它自动定位在窗体的顶部或底部。提示 缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使 ProgressBar 控件的宽度至少是其长度的 13 倍。下面的示例说明如何用一个名为 ProgressBar1 的 ProgressBar 控件，来表示对一个大数组冗长的操作进度。把一个 CommandButton 控件和一个 ProgressBar 控件放在同一窗体里。示例代码中的 Align 属性把 ProgressBar 控件定位在沿着窗体的底部。该 ProgressBar 不显示任何文本。Private Sub Command1_Click() Dim Counter As Integer Dim Workarea(250) As String ProgressBar1.Min = LBound(Workarea) ProgressBar1.Max = UBound(Workarea) ProgressBar1.Visible = True'设置进度的值为 Min。 ProgressBar1.Value = ProgressBar1.Min'在整个数组中循环。 For Counter = LBound(Workarea) To UBound(Workarea) '设置数组中每项的初始值。 Workarea(Counter) = "Initial value" & Counter ProgressBar1.Value = Counter Next Counter ProgressBar1.Visible = False ProgressBar1.Value = ProgressBar1.Min End SubPrivate Sub Form_Load() ProgressBar1.Align = vbAlignBottom ProgressBar1.Visible = False Command1.Caption = "Initialize array" End Sub发行注意 ProgressBar 控件是 ActiveX 控件组的组成，该控件组可以在文件MSCOMCTL.OCX 中找到。要在应用程序中使用 ProgressBar 控件，必须把MSCOMCTL.OCX 文件加到该工程中。在发行应用程序时，应把文件MSCOMCTL.OCX 安装到 Microsoft Windows 的 System 目录或者 System32 目录下。关于如何把一个 ActiveX 控件加到工程中去的详细信息，请参阅《程序员指南》。
ProgressBar 控件可用图形显示事务的进程。该控件的边框在事务进行过程中逐渐被充满。其 Value 属性决定该控件被填充多少。其 Min 和 Max 属性设置该控件的界限。要进行需要几秒钟才能完成的操作时，就要使用 ProgressBar。同时还必须知道该过程到达已知端点需要持续多长时间，并将其作为该控件的 Max 属性来设置。提示 为用户提供可视的反馈信息，表明这个耗时的操作还要进行多长时间才能完成，这可以给人以改进了性能的感觉。用途
通告用户通过网络进行文件传输的进展情况。
反映要持续几秒钟以上的过程的进展情况。
通告用户正在运行的复杂算法的进展情况。
使用 Value、Min 和 Max 属性显示进展情况
要显示某个操作的进展情况，Value 属性将持续增长，直到达到了由 Max 属性定义的最大值。这样该控件显示的填充块的数目总是 Value 属性与 Min 和 Max 属性之间的比值。例如，如果 Min 属性被设置为 1，Max 属性被设置为 100，Value 属性为 50，那么该控件将显示百分之五十的填充块，如下所示：将 Max 属性设置为已知的界限
要对 ProgressBar 进行编程，则必须首先确定 Value 属性攀升的界限。例如，如果正在下载文件，并且应用程序能够确定该文件有多少千字节，那么可将 Max 属性设置为这个数。在该文件下载过程中，应用程序还必须能够确定该文件已经下载了多少千字节，并将 Value 属性设置为这个数。在不能确定 Max 属性的情况下，则需要用 Animation 控件不停地显示动画，直到在结束事件中调用 Stop 方法为止。详细信息 有关使用 Animation 控件的更详细内容，请参阅“使用 Animation 控件”。用 Visible 属性隐藏 ProgressBar
在操作开始之前通常不显示进度栏，并且在操作结束之后它应再次消失。在操作开始时，将 Visible 属性设置为 True 以显示该控件；并在操作结束时，将该属性重新设置为 False 以隐藏该控件。
ProgressBar 控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。语法ProgressBar说明 ProgressBar 控件监视操作完成的进度。
ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行程的界限。Value 属性则指明了在行程范围内的当前位置。由于使用方块来填充控件，因此所填充的数量只能是接近于 Value 属性的当前设置值。基于控件的大小，Value 属性决定何时显示下一个方块。ProgressBar 控件的 Height 属性和 Width 属性决定所填充控件的方块的数量和大小。方块数量越多，控件就越能精确地描述操作进度。为了增加显示方块的数量，需要减少控件的 Height 或者增加其 Width。BorderStyle 属性的设置值同样影响方块的数量和大小。为了适应边框要求，方块的大小要更小一点。可以用 ProgressBar 控件的 Align 属性把它自动定位在窗体的顶部或底部。提示 缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使 ProgressBar 控件的宽度至少是其长度的 13 倍。下面的示例说明如何用一个名为 ProgressBar1 的 ProgressBar 控件，来表示对一个大数组冗长的操作进度。把一个 CommandButton 控件和一个 ProgressBar 控件放在同一窗体里。示例代码中的 Align 属性把 ProgressBar 控件定位在沿着窗体的底部。该 ProgressBar 不显示任何文本。Private Sub Command1_Click()
Dim Counter As Integer
Dim Workarea(250) As String
ProgressBar1.Min = LBound(Workarea)
ProgressBar1.Max = UBound(Workarea)
ProgressBar1.Visible = True'设置进度的值为 Min。
ProgressBar1.Value = ProgressBar1.Min'在整个数组中循环。
For Counter = LBound(Workarea) To UBound(Workarea)
'设置数组中每项的初始值。
Workarea(Counter) = "Initial value" & Counter
ProgressBar1.Value = Counter
Next Counter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End SubPrivate Sub Form_Load()
ProgressBar1.Align = vbAlignBottom
ProgressBar1.Visible = False
Command1.Caption = "Initialize array"
End Sub发行注意 ProgressBar 控件是 ActiveX 控件组的组成，该控件组可以在文件MSCOMCTL.OCX 中找到。要在应用程序中使用 ProgressBar 控件，必须把MSCOMCTL.OCX 文件加到该工程中。在发行应用程序时，应把文件MSCOMCTL.OCX 安装到 Microsoft Windows 的 System 目录或者 System32 目录下。关于如何把一个 ActiveX 控件加到工程中去的详细信息，请参阅《程序员指南》。