控件下載
簡介
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 |
文章定位：
