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

一． 介紹屬性

    FloodColor: 確定流動(dòng)條的顏色，缺省為藍(lán)色。

    FloodPercent: 顯示當(dāng)前過程如流動(dòng)條進(jìn)行的百分比，參數(shù)改變時(shí)顯示的百分?jǐn)?shù)和流動(dòng)條的面積改變，設(shè)為一整型值，取值范圍是0~100。

    FloodShowpct: 決定是否在三維面板控件上顯示百分比，是一個(gè)邏輯值。為Ture時(shí)顯示，為False時(shí)不顯示。

    FloodType: 表示用戶對(duì)三維面板控件的使用方式。可取值有6個(gè)，如下所示：

0 缺省設(shè)置

1 表示流動(dòng)條方向從左到右

2 表示流動(dòng)條方向從右到左

3 表示流動(dòng)條方向從上到下

4 表示流動(dòng)條方向從下到上

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

　

二． 流動(dòng)條設(shè)計(jì)

    如果在Windows 3.x下，工具箱中不存在三維面板控件，可選擇File菜單中的"Add File…" 進(jìn)行添加，在彈出的對(duì)話框中找到Windows\System目錄，然后選定Threed.vbx文件即可，如果使用VB 4.0，需在Tools菜單中選擇Custom Control命令，選定Sheridan 3d Controls項(xiàng)，按OK按紐，可在工具箱中增加三維面板控件。

    啟動(dòng)VB ，在窗體中畫一水平方向的長(zhǎng)方形三維面板控件，按F4，在屬性窗口中設(shè)置其Name為P3d、Bevellnner為2-Raised、FloodType為1、FloodshowPct為True,再在窗體中畫一個(gè)按紐Command1，雙擊該按紐，鍵入下面的代碼：

　

Sub Command1_Click()

P3d.floodpercent=0

For N%=1 To 100

If N%>100 Then

Exit sub

End If

P3d.FloodPercent=N%

Next N%

End Sub

    按F5，運(yùn)行該程序，點(diǎn)擊Command按紐，即可看到流動(dòng)條效果。