Visual Basic中轻松打造绚丽按钮 | VB | 软件

您的位置:

Visual Basic中轻松打造绚丽按钮

[文章信息]

作者:	第七乐章
时间:	2005-05-12
出处:	天极网
责任编辑:	方舟

[文章导读]

想让你的程序更加吸引眼球吗？想在你的程序中打造类似Windows XP、Java、Flat风格的按钮吗？

advertisement

热点推荐

·	图文详解：黑客入侵方式演示
·	Java异常处理的陋习展播
·	多媒体系列教程：网页设计制作
·	Powerpoint动画演示教程连载
·	光盘刻录手册：禁忌与技巧(下)

[正文]

　　控件下载

　　简介：一个非常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）。

　　你可以点击不同的OptionButton，观看16种不同的按钮风格,相信总有一种会适合您的程序的。

发表评论	推荐给朋友	我想参加相关培训	打印	我对此感兴趣	订阅电子杂志

天极社区邀请您：写博客日记上传相片论坛聊天订阅电子杂志推荐网摘

免费图铃工具

笔名：		请您注意：　遵守国家有关法律、法规，尊重网上道德，承担一切因您的行为而直接或间接引起的法律责任。　天极网拥有管理笔名和留言的一切权利。
评论：

相关内容

焦点新闻

用Visual Basic为软件增加注册功能

VB应用程序中实现“查找和替换”功能

VB6如何在托盘中写入应用程序图标

Visual Basic6.0网络编程的五大散手

VB“变态”用法之有用技术和没用指针

FVD刺激高清碟机加速商业化抢占商机最重要

3家搜索引擎集体诉讼8848 吕春维未敢出席

杨元庆：没有准备不会获批的备用方案

军队信息化诞生新领域电子军务呼之欲出

世界经济论坛公布信息化程度全球最新排名

2004政务绩效评估：政府门户尚处于发展阶段

甲骨文出资5.15亿美元意图收购RetekInc

技术并购：帮你突破传统增长的“天花板”

天极无线

·时尚女人圈
·经典影视专集
·美女秀场
·美丽大自然专题
·流行金曲
·科幻电影特区

| 最新推荐

·你好周杰伦
·杀破狼
·寻找玛依拉
·孤单公园
·男人海洋

| 魔术铃声

·少女丰胸
·少妇丰胸
·减肥魔铃
·增高魔铃
·美容魔铃

今日报价查询　更多报价

CPU	笔记本
内存	台式机
主板	掌上电脑
显卡	MP3
硬盘	数码相机
CRT显示器	投影机
液晶显示器	喷墨打印机
交换机	激光打印机
路由器	服务器