 图4 |
（3） ccrpProgressBar控件的主要属性
·Max:最大值。默认100。
·Min:最小值。默认0。
·Value:进度条的当前值。
·Alignment：显示表示进度的文字的位置。分别为vbCenter（中间），vbLeftJustify（左边），vbRightJustify（右边）。
·Appearance：进度条的3种外观。分别为prgFlat（平面），prg3D（立体） prg3Draised（立体凸起）。
·BackColor：进度条的背景色。
·FillColor：进度条的颜色。
·ForeColor：表示进度文字的字体颜色。
·Picture：进度条可用图片表示进度，从这里选择需要的图片。
·Shape：进度条的形状。有prgRectangle(默认)，prgEllipse和prgRoundedRect三种。
·Smooth： 是否平滑显示进度。True为平滑显示进度。
·Vertical：是否垂直显示进度条。True为垂直显示。
·Style：进度条的风格。当选ChkGraphical时为用图片表示进度。
·AutoCaption：表示进度的"文字提示"所采用的表现形式。CcrpPercentage为百分比的形式，ccrpValueOfMax为类似 1 of 100 的表现形式。Value为数字的表现形式。
（4）本例中ccrpProgressBar控件属性的具体设置
本例中共使用了9个ccrpProgressBar控件，每个ccrpProgressBar控件的具体设置如下：
1. CcrpProgressBar1：保持属性各项不变。
2. CcrpProgressBar2：Appearance的值设置为prg3D（表示用立体外观）。
3. CcrpProgressBar3：Appearance的值设置为prg3Draised（立体凸起），AutoCaption设为ccrpPercentage（百分比的形式表示进度），Alignment设为vbLeftJustify（表示进度的文字靠左）。
4. CcrpProgressBar4：BorderStyle设置为ccrpFixedSingle，AutoCaption设为ccrpPercentage（百分比的形式表示进度），Alignment设置为vbCenter（表示进度的文字在中间）
5. CcrpProgressBar5：Style设置为chkGraphical（用图片来表示进度）。单击"Picture"属性，选择你准备好的图片。同样，AutoCaption也设为百分比的形式表示进度，不过这次Alignment的值设置为vbRightJustify（进度文字靠右）。
6. CcrpProgressBar6：Shape设置为prgEllipse（椭圆型），AutoCaption设为ccrpValueOfMax（文字以类似 1 of 100 的表现形式）
7. CcrpProgressBar7：Shape设置为prgRoundedRect（圆角矩形），AutoCaption设为ccrpValue（数字形式）。
8. CcrpProgressBar8：Vertical设置为True,表示垂直显示进度条。Smooth设置为True，表示平滑显示进度。
9. CcrpProgressBar9：Vertical属性同8的设置，不过这回给它加上百分比显示, AutoCaption设为ccrpPercentage。
然后再分别调整好9个CcrpProgressBar控件的FillColor和ForeColor属性，搭配好颜色。使界面更协调。
（5）编写代码
设置好控件的属性后，在程序中加入以下代码，完成进度条的功能。
| Dim i As Integer Private Sub Form_Load() Timer1.Enabled = True '2个垂直显示的进度条的位置 With ccrpProgressBar8 .Left = 5280 .Top = 360 .Height = 3800 .Width = 396 End With With ccrpProgressBar9 .Left = 6200 .Top = 360 .Height = 3800 .Width = 396 End With End Sub Private Sub Timer1_Timer() If i = 100 Then End End If ccrpProgressBar1.Value = i ccrpProgressBar2.Value = i ccrpProgressBar3.Value = i ccrpProgressBar4.Value = i ccrpProgressBar5.Value = i ccrpProgressBar6.Value = i ccrpProgressBar7.Value = i ccrpProgressBar8.Value = i ccrpProgressBar9.Value = i i = i + 1 '变量i自增 End Sub |
运行程序，运行中的效果如图5所示。
 图5 |