Visual Basic中轻松打造绚丽按钮

最新推荐文章于 2023-05-20 00:00:00 发布

jevylau

最新推荐文章于 2023-05-20 00:00:00 发布

阅读量1.5k

点赞数

分类专栏： VB 文章标签： basic scheme button windows command xp

VB 专栏收录该内容

36 篇文章 1 订阅

订阅专栏

　　控件下载

　　简介：一个非常Cool的皮肤控件，可以将你窗体中的CommandButton的样式改变为XP、Java等等。推荐下载。

　　使用示例

　　想让你的程序更加吸引眼球吗？想在你的程序中打造类似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）。