相關文章：
用VB做個漂亮的進度條
源代碼壓縮包中包含ccrpProgressBar控件
簡介
VB的第三方控件ccrpProgressBar是一個進度條的控件，可以有多種形態供選擇。比起VB 中自帶的進度條控件ProgressBar更有個性。
使用實例:
用ccrpProgressBar制作各式各樣的進度條
在VB中自帶了一個進度條控件ProgressBar，但功能簡單。我向大家推薦一個VB的第三方進度條控件ccrpProgressBar。該控件功能強大，有多種形態供選擇，而且只需要簡單的設置控件的屬性就能實現,非常的好用。下面通過一個例子向大家介紹該控件的用法。
（1） 加載控件
啟動Visual Basic 6.0，創建一個工程並保存為"工程1.vbp"，同時產生一個名為"Form1"的窗口。在工具箱的空白處單擊鼠標右鍵，從彈出的快捷菜單中啟動"部件"窗口，如圖1所示。
圖1
點擊"浏覽"按鈕，從存放ccrpProgressBar控件的文件夾中找到ccrpprg.ocx文件。
點擊"應用"後ccrpProgressBar控件就添加到工具箱中。如圖2。
圖2
（2） 設計窗體和控件
向窗體中添加9個ccrpProgressBar控件和一個Timer控件。如圖3。
圖3
Timer控件屬性頁的設置如圖4所示。Interval的值設置為100，與ccrpProgressBar控件的默認值一致。Enabled設置為False。
圖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
