VB6.0界面美化不带任何附件的简单实现方法

《VB6.0界面美化不带任何附件的简单实现方法》由会员分享，可在线阅读，更多相关《VB6.0界面美化不带任何附件的简单实现方法（2页珍藏版）》请在金锄头文库上搜索。

1、VB6.0界面美化不带任何附件的简单实现方法VB6.0界面美化往往生成的 exe往往要带有bas、dll、ocx等等东西。很麻烦。所以介绍下面的美化方法生成的exe后就一个exe。没有任何的附件。首先准备 3个美化的东东：vb6.0 she皮肤调用模块.bas、aero.she、SkinH VB6.dll。aero* shedll放在“ D”下面:新建工程，在 外接程序”一一外接程序管理器” 一一“vb资源编辑器”然后在 工具”资源编辑器”里面添加：vb6.0 she皮肤调用模块.bas、aero.sheSkinH_VB6.dll 这 3 个文件，分别命名为 (101, CUSTOM)、(10

2、2, CUSTOM)、(103, CUSTOM)C: XDocuRerils-口空101102103好了。在工程1里面添加模块 1( Module1):在Module1添加代码:Sub Mai n()Dim bas As Stringbas = D:vb6.0 she 皮肤调用模块.basDim OPEN1() As ByteOPEN1 = LoadResData(101, CUSTOM)Ope n bas For Binary As #1Put #1, , OPEN1Close #1Dim she As Stringshe = D:aero.sheDim OPEN2() As ByteOPE

3、N2 = LoadResData(102, CUSTOM)Open she For Bi nary As #1Put #1, , OPEN2Close #1Dim dll As Stri ngdll = C:WINDOWSsystem32Ski nH _VB6.dllDim 0PEN3() As Byte0PEN3 = LoadResData(103, CUSTOM)Ope n dll For Bi nary As #1Put #1, , OPEN3Close #1Form1.ShowEnd Sub再添加vb6.0 she皮肤调用模块.bas模块工工程1 CT程I. TbP)-昌窗庫口 For

4、ihl (Forml. frm)i-凸模块Pkdill el (Madill el. bas)SkiiiH (vb6. 0 wIie皮趺L周用模块.baz)F T相关文档i-舉(工程1”RES)好了。在Form1下面添加代码：Private Sub Form_Load()Sk inH _AttachEx D:aero.she,End SubPrivate Sub Form_Unl oad(Ca ncel As In teger)Kill (D:aero.she)Kill (D:vb6.0 she 皮肤调用模块.bas)End Sub最后在 工程”一一工程1属性”里面将 启动对象”改为“Sub Main”生成一个exe看看效果。不放心的话，删除 vb6.0 she皮肤调用模块.bas、aero.she、SkinH_VB6.dll这3个文件，再运 行看看。果然这个 exe不用带任何附件就实现了美化效果。