安卓开来自发

• 外文名 ProgressBar
• 示例 Dim Counter As Integer
• 说明 控件监视操作完成的进度
• 语法 ProgressBar

进度条

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

　　语法

　　ProgressBar

　　说明

　　ProgressBar 控件监视操作完成的进度。

　　ProgressBar 控件有一个行程和一个当前位乡怕胶江款体今协任食争置。行程代表该操作的整须激个持续时间。当前位置则代表应用程序在完成该操作过程时的进度。Max 和 Min 属性设置了行来自程的界限。Value 属性则指明了在行程范围内的当前位置。牛短讨居必明求由于使用方块来填充控件，因此所填充的数量只能是接近于 Value 属性的当前设置值。基于控件的大小，Value 属性决定何时显示下一个方块。

　　ProgressBar 控件的 Height 属性和 Width 属性决定所填充控件的方360百科块的数量和大小。方块数量越多，控件就越能精确地描述操作进度。为了增加显示方块的数量，需要减少控件的 Height 或者增加其 Widt功化尔前跟律用华h。BorderStyle 属性的设置值同样影响方块的数量和大小。为了适应边框要求，方块的大小要更小一点。

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

　　提示 缩小方块的大小直到其所表示的进度增加量与实际进度值达到最接近掌重饭叶许调房益传顺的匹配程度，应使 ProgressBar 控件的宽度至少是其长度的 13 倍。

　　Component居根笑造混放何甚烧One的ProgressBar控件 可以你了解一个操作的进度。可以轻松地用动画、样式、标签，等等来自定义指针的外观。

　　水平或垂直方向

　　在默认情况下，进度条一般是水平的，但是你可以通过将fillDirection选项设置为向北或向南，来将它设置为垂直的干读练院介观。

　　动画

　　它可以制作进度条填充效果的动画效果，可以从超过三十种款式中进行选择。你还可以为每一个动画设置其速度和频率。

　　自定义标签

　　它可以自定义标签的位置，使它出现在控件的右侧、底部、左侧、顶部，或者控件的中心。当进度条正在填充时，你还可以设置标签使它像一个选取框一样运行，并将标签格式化。

C1ProgressBa期验课作穿呀草山味丝是r

　　CSS支持

　　你可以使用这一种级联样式表CSS的样式来定义自定义皮肤。有了CSS支持，你可以使该进度条与你的组织标准相匹配。

　　主题

　　只需点击一下智能标签，就可以通过从六个溢价主题(北极，午夜时分，雅集，火箭，钴和英镑)中选择一个来改变进度条控件的外观。另外，还可他娘源扩右争查言第以使用jQuery UI中的ThemeR妒六五材年草度尼内句oller来创建培刚许让清难聚力一个自定义的主题!

示例

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

　　Pr掌ivate Sub Comm航们省磁诗六七视普假端and1_Click()

　　Dim Counter As Integer

　　Di观故语办案绿甚将圆展m Workarea(250) As String

　　ProgressBar1.Min = LBound(Workarea)

　　ProgressBar1.Max = UBound(Workarea)

　　ProgressBar1.Visible = True

　　'设置进度的值为 Min。

　　ProgressBar1.Value = Pro局时轻各车飞讨用没步构gressBar1.Mi备值属括盟始抓浓角n

　　'在整个数组中循环。

　　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 Sub

　　Private Sub Form_Load()

　　ProgressBar1.Align = vbAlignBottom

　　ProgressBar1.Visible = False

　　Command1.Caption = "Initialize array"

　　End Sub