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

前段时间公司部分以前用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

    Next

    skin.SetCollection col

End Sub

4. 在你的启动窗体的formload里添加如下代码

Dim strPath As String

strPath = App.Path + "/SkinRes.dll"

skin.BeginHook strPath

SetForms

5.要让你的所有窗体都换肤,只要生成一个新窗体(form_load)时执行一下SetForms过程即可,还有一个变通的方法就是在开始启动时先加在所有的窗体,然后将其visible属性置为false。注意要在调用setforms之前加载哦,否则无效

  

运行你的程序,看看出现了什么变化?是不是所有的控件都变掉了,

:)是不是很酷啊!!!

 
本皮肤支持几乎所有的vb标准控件,包括菜单,工具栏,状态栏等。

测试环境:vb6+win2000.

由于此处不能上传,所以将演示程序及控件放到了资源里面,大家到那边去下载吧,地址是     http://download.csdn.net/source/241446


由于自己的艺术细胞比较缺乏,界面设计以及配色等都比较难看,请大家原谅,并多提宝贵意见,以便作者更好地改进,有兴趣的朋友可以与我交流交流,我的邮箱shengwang2000@163.com

 

 

评论 19
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值