变态重口极致另类在线-波多久久夜色精品国产-波多野结衣在线观看一区-波多野结衣在线观看一区二区-污污的网站免费阅读-污污视频网址

東坡下載:內容最豐富最安全的下載站!

首頁編程開發VB/asp → Visual Basic中輕松打造絢麗按鈕

Visual Basic中輕松打造絢麗按鈕

相關文章發表評論 來源:本站時間:2010/10/14 14:02:50字體大小:A-A+

更多

作者:東坡下載點擊:2224次評論:0次標簽:

使用示例
  想讓你的程序更加吸引眼球嗎?想在你的程序中打造類似Windows XP、Java、Flat風格的按鈕嗎?只要在你的程序中加上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控件,名稱分別為Command1、Command2、Command3、Command4,其中設置后兩個按鈕的Style屬性為“1-Gradical”,再設置它們的picture,為它們添加兩個合適的圖片(如圖2)。按鈕的其他設置具體參看圖2。
  ②添加一個option控件數組,名稱為“option1”,index從0到15。caption設置如圖2所示。
  到這里就完成了這個演示程序的界面設置,接著進行代碼的編寫。


  第四步:編寫代碼,實現具體的功能。
  ①編寫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,看看效果吧(如圖3)。
  你可以點擊不同的OptionButton,觀看16種不同的按鈕風格,相信總有一種會適合您的程序的。
更多精彩內容請點擊

visual studio

專題

相關評論

閱讀本文后您有什么感想? 已有 人給出評價!

  • 2791 喜歡喜歡
  • 2101 頂
  • 800 難過難過
  • 1219 囧
  • 4049 圍觀圍觀
  • 5602 無聊無聊
熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)

本類常用軟件

主站蜘蛛池模板: 毛片网站在线观看 | 久久久久久麻豆 | 欧美成免费 | 欧美在线精品永久免费播放 | 久久刺激视频 | 日本乱人伦免费播放 | awyy爱我影院午夜 | 日日操夜夜草 | 狠狠操狠狠色 | 成人午夜私人影院入口 | 波多野结衣被强在线视频 | 日韩中文网| 天天射天天爱天天干 | 美国一级大黄 | a免费看 | 国产综合成人观看在线 | 久久网伊人 | 国产91在线视频 | 五月网 | 日本狠狠操 | 成人免费看黄 | 欧美在线 | 亚洲 | 特级毛片a级毛免费播放 | 中中文字幕亚州无线码 | 欧美在线观看一区二区 | 色黄大色黄女片免费看软件 | 天天做天天爱天天一爽一毛片 | 多人性激烈的欧美三级视频 | 视频三区精品中文字幕 | 中国一级全黄的免费观看 | 久久久久久一级毛片免费野外 | 黄色视屏在线 | 亚洲午夜成激人情在线影院 | 天天射天天操天天色 | 大美香蕉伊在看欧美 | 午夜激情福利在线 | 激情综合婷婷亚洲图片 | 欧美日韩一级大片 | 九九热九九热 | 精品欧美一区二区三区 | 国产成人99精品免费视频麻豆 |