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

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

VB6.0界面美化往往生成的exe往往要带有bas、dll、ocx等等东西。很麻烦。

所以介绍下面的美化方法生成的exe后就一个exe。没有任何的附件。

首先准备3个美化的东东：vb6.0 she皮肤调用模块.bas、aero.she、SkinH_VB6.dll。

放在“D:\”下面：

新建工程，在“外接程序”——“外接程序管理器”——“vb6资源编辑器”

然后在“工具”——“资源编辑器”里面添加：vb6.0 she皮肤调用模块.bas、aero.she、SkinH_VB6.dll这3个文件，分别命名为(101, "CUSTOM")、(102, "CUSTOM")、(103, "CUSTOM")

好了。在工程1里面添加模块1（Module1）：在Module1添加代码：

Sub Main()

Dim bas As String

bas = "D:\vb6.0 she皮肤调用模块.bas"

Dim OPEN1() As Byte

OPEN1 = LoadResData(101, "CUSTOM")

Open bas For Binary As #1

Put #1, , OPEN1

Close #1

Dim she As String

she = "D:\aero.she"

Dim OPEN2() As Byte

OPEN2 = LoadResData(102, "CUSTOM")

Open she For Binary As #1

Put #1, , OPEN2

Close #1

Dim dll As String

dll = "C:\WINDOWS\system32\SkinH_VB6.dll"

Dim OPEN3() As Byte

OPEN3 = LoadResData(103, "CUSTOM")

Open dll For Binary As #1

Put #1, , OPEN3

Close #1

Form1.Show

End Sub

再添加vb6.0 she皮肤调用模块.bas模块

好了。在Form1下面添加代码：

Private Sub Form_Load()

SkinH_AttachEx "D:\aero.she", ""

End Sub

Private Sub Form_Unload(Cancel As Integer)

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不用带任何附件就实现了美化效果。