清风网络 - 提供绿色软件下载、单机游戏下载、免费电子书籍下载,尽在www.vipcn.com

当前位置:清风绿色软件下载网络学院程序开发VB → VB编程之路-如何让界面美化

VB编程之路-如何让界面美化

日期:2007-10-30 作者: 文章相关tags: 编程 之路 界面 美化

如果大家用过《Windows优化大师》,肯定会被它的界面所倾倒,其实利用ActiveSkin 就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。

  首先新建一个EXE工程,再在窗体上拖几个Label控件,看看Label 的强大功能吧,原理就是利用Label来模拟一个按钮,但是首先要将Label控件的属性要调一下,
Name: LblBtn,
BorderStyle: 1,
Appearance: 0,
Alignment: 2,

  这样一个按钮的雏形就已经出来了,如果工程量很大,可以将多个Label控件的Name属性设为一样的,对于按钮的识别就要靠识别Index属性了,为了方便起见,在进入到代码编辑窗口,输入以下代码:

Private Const LBL_BACK_COLOR = &HE0E0E0 ’正常时Label控件的背景色
Private Const LBL_WHEN_MOUSE_MOVE = &HC0C0C0 ’鼠标移动时Label的背景色
Private Const LBL_WHEN_MOUSE_DOWN = &H808080 ’鼠标按下时Label的背景色

再在Form的Load事件中输入以下内容

Private Sub Form_Load()
Dim Count As Integer
For Count = 0 To 3 ’请将此出的3换成你的LblBtn数量的个数-1
LblBtn(Count).BackColor=LBL_BACK_COLOR ’初始化LblBtn的背景
Next Count
End Sub

然后再在LblBtn的MouseMove和MouseDown事件中来搞定剩余部分:

Private Sub LblBtn_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) ’当鼠标按在LblBtn上时
LblBtn(Index).BackColor = LBL_WHEN_MOUSE_DOWN ’临时改变LblBtn背景颜色
End Sub
Private Sub LblBtn_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) ’鼠标在LblBtn上面移动时触发该事件
Dim Count As Integer
DoEvents ’暂时将系统控制权教给系统
If Button Then Exit Sub ’如果按钮被按下就退出该过程
[1] [2] [3] [4] [5] 下一页 

文章评论

相关分类

软件专题

阅读排行

推荐文章

帮助(?) | 版权声明 | 友情连接 | 关于我们 | 信息发布
本站提供的软件来自互联网下载纯属学习交流之用,全部需要用迅雷工具下载,如侵犯您版权的请与我们联系,我们会尽快改正,请在下载24小时后删除。
www.vipcn.com 版权所有 蜀ICP备13015096号-5 Powered by:vipcn