ProgressBar 控件通过从左到右用一些方块填充矩形来表示一个较长操作的进度。

语法

ProgressBar

说明

ProgressBar 控件监视操作完成格轮移缩刘剧的进度。
ProgressBar 控件有一个行程和一个当前位置。行程代表该操作的整个持击坐线适续时间。当前位置则代表应用程序在完成该操作过程农时的进度。Max 和 Min 属性设置了行程的界限国导告球。Value 属性则指明了在行程范围内的当前位置。由于使用方块来填充控件，封因此所填充的数量只来自能是接近于 Value 属性的当前设置值。基于控件的大小，Value 属性决定何时显示下一个方块。

P360问答rogressBar 控件的 Height 属性和 Width 属性决定所填充控件的方块的数量和大小。方块数量越多，控件就越能精确地描述操作进度。为了增加显示方块的数量，需要减少控件的 Height 或者增加其 Width。BorderStyle 属性的设置值同样影响方块的数量和大小。为了适应边框要求，方块的大小要更小一点。

可以用 ProgressBar 控和备谈杨件的 Align 属性把它自动定位在窗体的顶部或热底部。

提示 缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近的匹配程度，应使 Prog画ressBar 控件的宽度至少是其长度的 13 倍。

下面的示例说明如何用一个名为 ProgressBar1 的 ProgressBar 控件，来表示对一个大数组冗长的操作进度。把一个 CommandButton 控件和一个 ProgressBar 控件放在同一窗体里。示例代码中的 Align 属性把 ProgressBar 控件定位在沿着窗体的底部。该 ProgressBar 不显示任何文本。

Private Sub Command1_Click()
Dim Counter As I的井东石宣请输卫哪曲损nteger
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) = "Initia未场触前令松双状千例l value" & Counter
ProgressBar1.Value = Counter
Next Counter
ProgressBar1.Visible = False
Prog销父副协刘ressBar1.Value = ProgressBar1.Min
End Sub

P苗它营率溶望之rivate Sub Form_Load()
ProgressBar1.Align = vbAlignBottom
ProgressBar1.Visible = False
Command1.Captio烟官旧油加就n = "Initiali评已考ze array"
End Sub