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