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, \、(102, \、(103, \

好了。在工程1里面添加模块1（Module1）：在Module1添加代码： Sub Main() Dim bas As String

bas = \皮肤调用模块.bas\Dim OPEN1() As Byte

OPEN1 = LoadResData(101, \ Open bas For Binary As #1 Put #1, , OPEN1 Close #1 Dim she As String she = \Dim OPEN2() As Byte

OPEN2 = LoadResData(102, \ Open she For Binary As #1 Put #1, , OPEN2 Close #1 Dim dll As String

dll = \

Dim OPEN3() As Byte

OPEN3 = LoadResData(103, \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 \End Sub

Private Sub Form_Unload(Cancel As Integer) Kill (\

Kill (\皮肤调用模块.bas\End Sub

最后在“工程”——“工程1属性”里面将“启动对象”改为“Sub Main”。 生成一个exe看看效果。

不放心的话，删除vb6.0 she皮肤调用模块.bas、aero.she、SkinH_VB6.dll这3个文件，再运行看看。果然这个exe不用带任何附件就实现了美化效果。