几行代码，轻松让你的界面与众不同(for vb)

本文链接：https://blog.csdn.net/joe_wang/article/details/1768283

前段时间公司部分以前用vb做的部分软件要进行美化，由于代码量比较多，直接修改源代码工作量比较大，改起来恐怕会不断有新的问题出现，再加上老的软件已经运行很长时间了，比较稳定，该代码后的风险实在是太大了，于是决定用现成的换肤控件，经过对比发现有两款做的不错，其余的基本都是垃圾，问题百出。这两款就是skin++和appface,其中skin++要优于appface.而且appface有部分控件在我的软件里支持不好，所以就决定用skin++,在和对方谈价格的时候，对方的报价蛮吓人的，8000多元，奶奶的，抵我几个月的工资了，以前也研究过换肤技术，也算有一些了解，价格也不用定的这么高吧，坚决不买。还是自力更生决定自己写个换肤控件，而且功能也不比你差，：）

想法容易做起来难，在做的过程中遇到了许多困难，主要就是vb中的label，line控件没有句柄，无法修改起皮肤，这个问题整整折磨了我一个多月，不过还好最终还是靠自己的努力解决了这个问题，真是欣慰，最终作出来的效果自己感觉还不错，不用改现有的任何代码，只要添加几行代码，即可实现vb程序的完美换肤。

以下是换肤前后的效果：
（不能贴图片，5555，有需要的向我索取吧）

皮肤组成：
本皮肤包含4个文件，其中3个文件（vbskin.dll，skinres.dll,skinOcx.ocx）为皮肤相关文件，你需要要将这三个文件拷贝到你工程的文件夹里，还要有一个文件是vc支持库文件msvcrtd.dll,需要将其拷贝到系统目录里面（system32),否则你的皮肤不起作用。

下面将具体的使用方法说明如下：

然后按照如下步骤操作

1．首先要用regsvr32注册skinocx控件

2．在你的工程里引用此控件，打开vb菜单 Project/component，选择skinocx即可

3．新增一个公用模块，并将以下代码拷贝到模块里面

Public skin As New Skinner

Public Sub SetForms()

Dim col As New Collection

Dim i

Dim frm As Form

For Each frm In Forms

col.Add frm