使用示例
想讓你的程序更加吸引眼球嗎？想在你的程序中打造類似Windows XP、Java、Flat風(fēng)格的按鈕嗎？只要在你的程序中加上BSE控件，簡簡單單的一行代碼，就可以輕松實現(xiàn)多達(dá)16種風(fēng)格的按鈕，完全使你拋棄了繁雜的代碼！下面我們就結(jié)合一個實例來說明使用方法，并展示該控件實現(xiàn)的強(qiáng)大功能！
BSE控件一個可以實現(xiàn)15種不同的風(fēng)格，通過設(shè)置控件的SchemeStyle屬性，我們可以很容易的控制窗口界面中CommandButton的風(fēng)格。SchemeStyle的屬性設(shè)置與其實現(xiàn)風(fēng)格的對應(yīng)關(guān)系如表一所示:
| SchemeStyle屬性 | 效果風(fēng)格及說明 |
| 0 | Windows XP Blue Scheme Button Style |
| 1 | Windows XP Olive Green Scheme Button Style |
| 2 | Windows XP Silver Scheme Button Style |
| 3 | Windows Flat Scheme Button Style |
| 4 | Windows Hover Scheme Button Style |
| 5 | Netscape Scheme Button Style |
| 6 | Java Scheme Button Style |
| 7 | Windows OLD 3.x Scheme Button Style |
| 8 | Office XP Blue Scheme Button Style |
| 9 | Office XP OliveGreen Scheme Button Style |
| 10 | Office XP Silver Scheme Button Style |
| 11 | Office XP SystemColor Scheme Button Style |
| 12 | WindowsXP InternetExplorer Scheme Button Style |
| 13 | Gradient Scheme Button Style
（漸變色背景風(fēng)格） |
| 14 | Alien Scheme Button Style
（具有金屬質(zhì)感的按鈕） |
| 15 | Bitmap Pattern Scheme Button Style
（實現(xiàn)按鈕的背景，獨立于按鈕本身的Picture） |
了解了按鈕的風(fēng)格后，我們就可以根據(jù)自己的喜好隨心所欲地設(shè)置風(fēng)格了。
第一步：首先啟動Visual Basic 6.0，新建一個窗口。
第二步：加載BSE控件，設(shè)置其屬性。
①在控件工具欄中單擊右鍵，選擇“部件”，在彈出的窗口中點擊“瀏覽”，找到BSE控件，載入它；把它添加到Form1窗體中任意位置即可。
②修改BSE控件屬性。在BSE控件上單擊右鍵，選擇“屬性”。在彈出的屬性頁設(shè)置窗口中選擇“Options”，如圖1，根據(jù)需要自行設(shè)置其中屬性。
其中，設(shè)置“Pattern Bitmap Images”的圖片僅當(dāng)SchemeStyle值設(shè)置為15時有效，它就是按鈕顯示的背景圖片。“Gradient Scheme Options”僅當(dāng)SchemeStyle值設(shè)置為13時有效，它可以設(shè)置背景漸變色的方向和起始、終止顏色。“Border Highlight Effect Options”可以設(shè)置部分風(fēng)格的按鈕點擊時的邊框顏色。
第三步：加載其他控件，完成界面的設(shè)置。
①在窗體中添加4個CommandButton控件，名稱分別為Command1、Command2、Command3、Command4，其中設(shè)置后兩個按鈕的Style屬性為“1－Gradical”，再設(shè)置它們的picture，為它們添加兩個合適的圖片（如圖2）。按鈕的其他設(shè)置具體參看圖2。
②添加一個option控件數(shù)組，名稱為“option1”，index從0到15。caption設(shè)置如圖2所示。
到這里就完成了這個演示程序的界面設(shè)置，接著進(jìn)行代碼的編寫。
第四步：編寫代碼，實現(xiàn)具體的功能。
①編寫Form1的Load事件，使程序啟動時commandbutton顯示為您說設(shè)置的風(fēng)格，這里采用第一種風(fēng)格，即Windows XP Blue風(fēng)格。代碼如下：
Private Sub Form_Load()
BSE1.SchemeStyle = 0
BSE1.EndSubClassing
BSE1.InitSubClassing
End Sub |
②添加option控件數(shù)組的事件，使可以根據(jù)選擇option來轉(zhuǎn)換commandbutton的不同風(fēng)格。
Private Sub Option1_Click(Index As Integer)
BSE1.SchemeStyle = Index
BSE1.EndSubClassing
BSE1.InitSubClassing
End Sub |
③編寫退出程序的代碼，再Command4的Click事件中加入如下代碼：
If BSE1.EngineStarted Then
BSE1.EndSubClassing '卸載BSE控件
End If
Unload Me |
到這里，這個簡單的演示程序就完成了，是不是很簡單呢？只要短短的幾行代碼就可以實現(xiàn)如此酷的按鈕。快按下F5，看看效果吧（如圖3）。
你可以點擊不同的OptionButton，觀看16種不同的按鈕風(fēng)格,相信總有一種會適合您的程序的。
