想讓你的程序更加吸引眼球嗎?想在你的程序中打造類似Windows XP、Java、Flat風(fēng)格的按鈕嗎?只要在你的程序中加上BSE控件,簡(jiǎn)簡(jiǎn)單單的一行代碼,就可以輕松實(shí)現(xiàn)多達(dá)16種風(fēng)格的按鈕,完全使你拋棄了繁雜的代碼!下面我們就結(jié)合一個(gè)實(shí)例來說明使用方法,并展示該控件實(shí)現(xiàn)的強(qiáng)大功能!
BSE控件一個(gè)可以實(shí)現(xiàn)15種不同的風(fēng)格,通過設(shè)置控件的SchemeStyle屬性,我們可以很容易的控制窗口界面中CommandButton的風(fēng)格。SchemeStyle的屬性設(shè)置與其實(shí)現(xiàn)風(fēng)格的對(duì)應(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 (實(shí)現(xiàn)按鈕的背景,獨(dú)立于按鈕本身的Picture) |
第一步:首先啟動(dòng)Visual Basic 6.0,新建一個(gè)窗口。
第二步:加載BSE控件,設(shè)置其屬性。
①在控件工具欄中單擊右鍵,選擇“部件”,在彈出的窗口中點(diǎn)擊“瀏覽”,找到BSE控件,載入它;把它添加到Form1窗體中任意位置即可。
、谛薷腂SE控件屬性。在BSE控件上單擊右鍵,選擇“屬性”。在彈出的屬性頁設(shè)置窗口中選擇“Options”,如圖1,根據(jù)需要自行設(shè)置其中屬性。
其中,設(shè)置“Pattern Bitmap Images”的圖片僅當(dāng)SchemeStyle值設(shè)置為15時(shí)有效,它就是按鈕顯示的背景圖片。“Gradient Scheme Options”僅當(dāng)SchemeStyle值設(shè)置為13時(shí)有效,它可以設(shè)置背景漸變色的方向和起始、終止顏色。“Border Highlight Effect Options”可以設(shè)置部分風(fēng)格的按鈕點(diǎn)擊時(shí)的邊框顏色。
第三步:加載其他控件,完成界面的設(shè)置。
①在窗體中添加4個(gè)CommandButton控件,名稱分別為Command1、Command2、Command3、Command4,其中設(shè)置后兩個(gè)按鈕的Style屬性為“1-Gradical”,再設(shè)置它們的picture,為它們添加兩個(gè)合適的圖片(如圖2)。按鈕的其他設(shè)置具體參看圖2。
、谔砑右粋(gè)option控件數(shù)組,名稱為“option1”,index從0到15。caption設(shè)置如圖2所示。
到這里就完成了這個(gè)演示程序的界面設(shè)置,接著進(jìn)行代碼的編寫。
第四步:編寫代碼,實(shí)現(xiàn)具體的功能。
、倬帉慒orm1的Load事件,使程序啟動(dòng)時(shí)commandbutton顯示為您說設(shè)置的風(fēng)格,這里采用第一種風(fēng)格,即Windows XP Blue風(fēng)格。代碼如下:
Private Sub Form_Load() BSE1.SchemeStyle = 0 BSE1.EndSubClassing BSE1.InitSubClassing End Sub |
Private Sub Option1_Click(Index As Integer) BSE1.SchemeStyle = Index BSE1.EndSubClassing BSE1.InitSubClassing End Sub |
If BSE1.EngineStarted Then BSE1.EndSubClassing '卸載BSE控件 End If Unload Me |