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

作者：王金柱

VB提供了一個三維面板控件，利用這個控件可設計圖形效果的立體界面，從而使應用程序的界面顯得更生動、美觀，該控件還可以設置各種形式的背景，然后在背景上顯示各種形式的字符，令人感興趣的是，使用三維面板控件，還可設計我們經常在安裝程序中看到的表示安裝進程的流動條，并可顯示進程百分比，改變流動條的顏色等。
　　一、介紹屬性

　　FloodColor：確定流動條的顏色，缺省為藍色。

　　FloodPercent：顯示當前過程如流動條進行的百分比，參數改變時顯示的百分數和流動條的面積改變，設為一整型值，取值范圍是0～100。

　　FloodShowpct：決定是否在三維面板控件上顯示百分比，是一個邏輯值。為 True時顯示，為False時不顯示。

　　FloodType：表示用戶對三維面板控件的使用方式?？扇≈涤?6個，如下所示：

　　0　缺省設置

　　1　表示流動條方向從左到右

　　2　表示流動條方向從右到左

　　3　表示流動條方向從上到下

　　4　表示流動條方向從下到上

　　5　表示使用指定的顏色從圓心向外畫圓

　　二、流動條設計

　　如果在Windows3？X下，工具箱中不存在三維面板控件，可選擇File菜單中的“Add File…”進行添加，在彈出的對話框中找到Windows\System目錄，然后選定Threed？vbx文件即可，如果使用VB4.0，需在Tools菜單中選擇 Custom Controls命令，選定Sheridan 3d Controls項，按OK按鈕，可在工具箱中增加三維面板控件。

　　啟動VB3？0，在窗體中畫一水平方向的長方形三維面板控件，按F4，在屬性窗口中設置其Name為P3d、Bevellnner為2－Raised、FloodType為1、FloodshowPct為True，再在窗體中畫一個按鈕Command1，雙擊該按鈕，鍵入下面的代碼：

　　Sub Command1_Click()

　　P3d？floodpercent=0

　　For N％=1 To 100

　　If N％$#@62;100 THEN

　　Exit Sub

　　End If

　　P3d？FloodPercent=N％

　　Next I％

　　End Sub

　　按F5，運行該程序，點擊Command按鈕，即可看到流動條效果。

原文轉自：http://www.anti-gravitydesign.com