利用VB三維面板控件設計流動條

VB提供了一個三維面板控件，利用這個控件可設計圖形效果的立體界面，從而使應用程序的界面顯得更生動、美觀，該控件還可以設置各種形式的背景，然後在背景上顯示各種形式的字符，令人感興趣的是，使用三維面板控件，還可設計我們經常在安裝程序中看到的表示安裝進程的流動條，並可顯示進程百分比，改變流動條的顏色
　　等。
　　
　　一、介紹屬性
　　
　　FloodColor：確定流動條的顏色，缺省為藍色。
　　
　　FloodPercent：顯示當前過程如流動條進行的百分比，參數改變時顯示的百分數和流動條的面積改變，設為一整型值，取值范圍是0～100。
　　
　　FloodShowpct：決定是否在三維面板控件上顯示百分比，是一個邏輯值。為True時顯示，為False時不顯示。
　　
　　FloodType：表示用戶對三維面板控件的使用方式。可取值有6個，如下所示：
　　
　　0　缺省設置
　　
　　1　表示流動條方向從左到右
　　
　　2　表示流動條方向從右到左
　　
　　3　表示流動條方向從上到下
　　
　　4　表示流動條方向從下到上
　　
　　5　表示使用指定的顏色從圓心向外畫圓
　　
　　二、流動條設計
　　
　　如果在Windows3X下，工具箱中不存在三維面板控件，可選擇File菜單中的“AddFile…”進行添加，在彈出的對話框中找到WindowsSystem目錄，然後選定Threedvbx文件即可，如果使用VB4.0，需在Tools菜單中選擇CustomControls命令，選定Sheridan3dControls項，按OK按鈕，可在工具箱中增加三維面板控件。
　　
　　啟動VB30，在窗體中畫一水平方向的長方形三維面板控件，按F4，在屬性窗口中設置其Name為P3d、Bevellnner為2－Raised、FloodType為1、FloodshowPct為True，再在窗體中畫一個按鈕Command1，雙擊該按鈕，鍵入下面的代碼：
　　
　　SubCommand1_Click()
　　
　　P3dfloodpercent=0
　　
　　ForN％=1To100
　　
　　IfN％>100THEN
　　
　　ExitSub
　　
　　EndIf
　　
　　P3dFloodPercent=N％
　　
　　NextI％
　　
　　EndSub
　　
　　按F5，運行該程序，點擊Command按鈕，即可看到流動條效果。->