将个性化进行到底 VB中打造个性进度条

　　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