VB窗体美化

是4800/15啦

Private

Sub

Form_Load()

MeScaleMode

=

3'把窗体调成像素模式，框的宽高就是以像素为单位的

Picture1ScaleMode

=

3

Picture1AutoSize

=

True

End

Sub

建议用第三方控件，同时也希望你学点GDI+方面的知识，必竟全用人家的东东也会受制约的。如果有现地方你不满意你就可以自己做点修改，像下面这种窗体是用第三方控件也可以自己用GDI+封装。控件的工程量太大了所以用了第三方的。比如我这窗体的新增客户是自己做的组合控件，无非就是用第三方控件有的控件组合下。再配合GDI+做做修饰就有这样的效果了。

题主你好，想用 NET 中自带的控件制作这样的效果是不可能的，这些基本都是利用了复杂的 Draw 之类的函数绘制出来的，并封装成了一个个控件（也就是所谓的皮肤），在需要的时候调用的。

题主请注意金山毒霸安装目录下，有一个个 DLL，有很多都是带有"UI"（User Interface，用户界面）字样的（例如：kwsuidll），这些就是金山毒霸事先封装好的一个个控件，而不是用的 IDE 里面自带的控件。

现在越来越多的软件都有了很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控件就讲到这里，

thisBackgroundImage = ImageFromFile("0bmp");

thisSize = thisBackgroundImageSize;

然后把这些写在基类的load事件里边，让别的窗口继承

这样就都一样了

以上就是关于VB窗体美化全部的内容，包括:VB窗体美化、如何实现winform窗体的美化、vb2010 美化窗体等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！