vb新手请教如何用actskin4.ocx美化vb界面

在vb中调用这个ocx“工程->部件->浏览->该ocx的具体位置”最后点确定，工具箱里面就有了个新控件，把控件加入到窗口中就行了。

对了因为使用了ocx，你制作成exe文件在其他电脑上使用的时候要把这个ocx一起打进压缩包哦，不然就没法运行了。

其实做程序，只要程序功能好，简单也是美。

现在越来越多的软件都有了很Cool的2D造型，什么××××nbsp;XP啦，××××nbsp;2002之类的，看来争夺软件霸权的地位，2D界面是必不可少的，有很多人认为Visualnbsp;Basic语言的先天不足导致它不能够很灵活的改变界面，让俺们来看看究竟吧。nbsp;nbsp;如果大家用过《Windows优化大师》，肯定会被它的界面所倾倒，其实利用ActiveSkinnbsp;就可以办到,甚至更爽,但是如果要做的共享软件只是一个文件,在加上几个OCX累赘,似乎很是不爽,看看VB是怎么利用别的东东来实现的吧。nbsp;nbsp;首先新建一个EXE工程，再在窗体上拖几个Label控件，看看Labelnbsp;的强大功能吧，原理就是利用Label来模拟一个按钮，但是首先要将Label控件的属性要调一下，Name：nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;LblBtn，BorderStyle:nbsp;nbsp;1，Appearance:nbsp;nbsp;0，Alignment:nbsp;nbsp;nbsp;nbsp;2，这样一个按钮的雏形就已经出来了，如果工程量很大，可以将多个Label控件的Name属性设为一样的，对于按钮的识别就要靠识别Index属性了，为了方便起见，在进入到代码编辑窗口，输入以下代码：Privatenbsp;Constnbsp;LBL_BACK_COLORnbsp;＝nbsp;amp;HE0E0E0nbsp;nbsp;nbsp;’正常时Label控件的背景色Privatenbsp;Constnbsp;LBL_WHEN_MOUSE_MOVEnbsp;＝nbsp;amp;HC0C0C0nbsp;nbsp;’鼠标移动时Label的背景色Privatenbsp;Constnbsp;LBL_WHEN_MOUSE_DOWNnbsp;＝nbsp;amp;H808080nbsp;nbsp;’鼠标按下时Label的背景色再在Form的Load事件中输入以下内容Privatenbsp;Subnbsp;Form_Load（）Dimnbsp;Countnbsp;Asnbsp;IntegerFornbsp;Countnbsp;＝nbsp;0nbsp;Tonbsp;3nbsp;nbsp;’请将此出的3换成你的LblBtn数量的个数－1LblBtn（Count）BackColor＝LBL_BACK_COLORnbsp;nbsp;’初始化LblBtn的背景Nextnbsp;CountEndnbsp;Sub然后再在LblBtn的MouseMove和MouseDown事件中来搞定剩余部分：Privatenbsp;Subnbsp;LblBtn_MouseDown（Indexnbsp;Asnbsp;Integer，nbsp;Buttonnbsp;Asnbsp;Integer，nbsp;Shiftnbsp;Asnbsp;Integer，nbsp;Xnbsp;Asnbsp;Single，nbsp;Ynbsp;Asnbsp;Single）nbsp;’当鼠标按在LblBtn上时LblBtn（Index）BackColornbsp;＝nbsp;LBL_WHEN_MOUSE_DOWNnbsp;nbsp;’临时改变LblBtn背景颜色Endnbsp;SubPrivatenbsp;Subnbsp;LblBtn_MouseMove（Indexnbsp;Asnbsp;Integer，nbsp;Buttonnbsp;Asnbsp;Integer，nbsp;Shiftnbsp;Asnbsp;Integer，nbsp;Xnbsp;Asnbsp;Single，nbsp;Ynbsp;Asnbsp;Single）nbsp;nbsp;nbsp;’鼠标在LblBtn上面移动时触发该事件Dimnbsp;Countnbsp;Asnbsp;IntegerDoEventsnbsp;nbsp;’暂时将系统控制权教给系统Ifnbsp;Buttonnbsp;Thennbsp;Exitnbsp;Subnbsp;’如果按钮被按下就退出该过程Fornbsp;Countnbsp;＝nbsp;0nbsp;Tonbsp;3Ifnbsp;Countnbsp;amp;lt;amp;gt;nbsp;Indexnbsp;Thennbsp;’如果按下的不是其它按钮LblBtn（Index）BackColornbsp;＝nbsp;LBL_BACK_COLORnbsp;’将背景设为正常ElseLblBtn（Index）BackColornbsp;＝nbsp;LBL_WHEN_MOUSE_MOVEnbsp;’将背景设为鼠标移动的背景Endnbsp;IfNextnbsp;CountEndnbsp;SubPrivatenbsp;Subnbsp;Form_MouseMove（Buttonnbsp;Asnbsp;Integer，nbsp;Shiftnbsp;Asnbsp;Integer，nbsp;Xnbsp;Asnbsp;Single，nbsp;Ynbsp;Asnbsp;Single）Dimnbsp;Countnbsp;Asnbsp;IntegerDoEventsFornbsp;Count＝0nbsp;Tonbsp;3LblBtn（Count）BackColor＝LBL_BACKCOLORnbsp;’恢复背景Nextnbsp;CountEnd本来利用Windows的消息系统来完成这一“艰巨”的任务最简单，可问题就来了，Label控件没有窗口句柄怎么办？可是此问题与题无关，写了会有骗稿费之：）OK，Label控件就讲到这里，

你可以给Form添加一 如果显示不全你也可以往窗体上加一个Picture控件 并使Picture的长与宽与窗体同等大小 然后再设置Autosize=True 往Pictrue上加 再加其它控件即可

这类的网上有专门提供下载的，别人开发的免费的。

如果要自己设计。那么就比较专业化了。

我推荐你去一个VB代码比较全的网站看下。

里面有很多漂亮的界面。

>

以上就是关于vb新手请教如何用actskin4.ocx美化vb界面全部的内容，包括:vb新手请教如何用actskin4.ocx美化vb界面、VB中，如何美化窗体界面。、如何让VB设计的程序外观更漂亮 就是使用图片作为 *** 作界面 我需要具体的方法等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！