軟件程序的超炫按鈕的輕鬆打造----visual basic篇

    軟件開發者要想軟件吸引客戶的眼光，固然是打造軟件的界面風格，如打造相似Windows XP、Java、Flat風格的按鈕嗎？只要在你的程序中加上BSE控件，簡簡單單的一行代碼，就能夠輕鬆實現多達16種風格的按鈕，徹底使你拋棄了繁雜的代碼！下面咱們就結合一個實例來講明使用方法，並展現該控件實現的強大功能！但如何實現呢？

net平臺

集成開發環境：

編程語言visual basic

let'start 

只要在你的viusal basic程序中加上BSE控件，簡簡單單的一行代碼，就能夠輕鬆實現多達16種風格的按鈕，徹底使你拋棄了繁雜的代碼！下面咱們就結合一個實例來講明使用方法，並展現該控件實現的強大功能！

   BSE控件一個能夠實現15種不一樣的風格，經過設置控件的SchemeStyle屬性，咱們能夠很容易的控制窗口界面中CommandButton的風格。SchemeStyle的屬性設置與其實現風格的對應關係如表一所示: 

SchemeStyle屬性	效果風格及說明
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 （漸變色背景風格）
14	Alien Scheme Button Style （具備金屬質感的按鈕）
15	Bitmap Pattern Scheme Button Style （實現按鈕的背景，獨立於按鈕自己的Picture）

　　瞭解了按鈕的風格後，咱們就能夠根據本身的喜愛爲所欲爲地設置風格了。
　　第一步：首先啓動Visual Basic 6.0，新建一個窗口。
　　第二步：加載BSE控件，設置其屬性。
　　①在控件工具欄中單擊右鍵，選擇「部件」，在彈出的窗口中點擊「瀏覽」，找到BSE控件，載入它；把它添加到Form1窗體中任意位置便可。
　　②修改BSE控件屬性。在BSE控件上單擊右鍵，選擇「屬性」。在彈出的屬性頁設置窗口中選擇「Options」，如圖1，根據須要自行設置其中屬性。圖：

其中，設置「Pattern Bitmap Images」的圖片僅當SchemeStyle值設置爲15時有效，它就是按鈕顯示的背景圖片。「Gradient Scheme Options」僅當SchemeStyle值設置爲13時有效，它能夠設置背景漸變色的方向和起始、終止顏色。「Border Highlight Effect Options」能夠設置部分風格的按鈕點擊時的邊框顏色。
　　第三步：加載其餘控件，完成界面的設置。
　　①在窗體中添加4個CommandButton控件，名稱分別爲Command一、Command二、Command三、Command4，其中設置後兩個按鈕的Style屬性爲「1－Gradical」，再設置它們的picture，爲它們添加兩個合適的圖片（如圖2）。按鈕的其餘設置具體參看圖2。
　　②添加一個option控件數組，名稱爲「option1」，index從0到15。caption設置如圖2所示。
　　到這裏就完成了這個演示程序的界面設置，接着進行代碼的編寫。圖

接下來，編寫code，實現具體的功能。 
　　①編寫Form1的Load事件，使程序啓動時commandbutton顯示爲您說設置的風格，這裏採用第一種風格，即Windows XP Blue風格。代碼以下：

Private Sub Form_Load() 　　　BSE1.SchemeStyle = 0 　　　BSE1.EndSubClassing 　　　BSE1.InitSubClassing 　　End Sub

　　②添加option控件數組的事件，使能夠根據選擇option來轉換commandbutton的不一樣風格。

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

　　到這裏，這個簡單的演示程序就完成了，是否是很簡單呢？只要短短的幾行代碼就能夠實現如此酷的按鈕。快按下F5，運行一下，effect，圖：

你能夠點擊不一樣的OptionButton。

固然，你嫌不夠，能夠自定義添加

adiOS