,VB   工具软件   办公软件   操作系统   网络安全   设计在线   程序开发   教程宝典   软件下载   软件论坛,VB
您的位置:Yesky > 软件 > 开发者网络 > 正文
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种不同的按钮风格,相信总有一种会适合您的程序的。


发表评论推荐给朋友我想参加相关培训打印我对此感兴趣订阅电子杂志
,VB相关内容,VB焦点新闻
  • 用Visual Basic为软件增加注册功能
  • VB应用程序中实现“查找和替换”功能
  • VB6如何在托盘中写入应用程序图标
  • Visual Basic6.0网络编程的五大散手
  • VB“变态”用法之有用技术和没用指针
  • FVD刺激高清碟机加速商业化 抢占商机最重要
  • 3家搜索引擎集体诉讼8848 吕春维未敢出席
  • 杨元庆：没有准备不会获批的备用方案
  • 军队信息化诞生新领域 电子军务呼之欲出
  • 世界经济论坛公布信息化程度全球最新排名
  • 2004政务绩效评估：政府门户尚处于发展阶段
  • 甲骨文出资5.15亿美元 意图收购RetekInc
  • 技术并购：帮你突破传统增长的“天花板”
    • ,VBAdvertisement

    天极无线
    经典名曲 华语流行 欧美风情 人声音效 原声大碟
    你好周杰伦-安又琪
     直线-张韶涵
    天边-张韶涵
    看我72变-蔡依林
    乱世佳人-Twins
    全世界下雨-张娜拉     		我们的爱-飞儿乐队
    分手快乐-梁静茹
    爱在西元前-周杰伦
    三万英尺-迪克牛仔
    爱如潮水-张信哲
    爱情宣言-齐秦    		 寻找玛依拉-刀郎
    驼铃-刀郎
    老鼠爱大米-杨臣刚
    功夫主题曲
    仙剑主题曲杀破狼
    天下无贼片尾曲    		 冲动的惩罚-刀郎
    情人-刀郎
    爱情-莫文蔚
    挪威的森林-伍佰
    奔跑 - 羽泉
    因为爱 - 羽泉
      ·时尚女人圈
    ·经典影视专集
    ·美女秀场
    ·美丽大自然专题
    ·流行金曲
    ·科幻电影特区
    | 最新推荐
    ·你好周杰伦
    ·杀破狼
    ·寻找玛依拉
    ·孤单公园
    ·男人海洋
    | 魔术铃声
    ·少女丰胸
    ·少妇丰胸
    ·减肥魔铃
    ·增高魔铃
    ·美容魔铃

    今日报价查询　更多报价