vb打包方法

2024年3月5日发(作者：)

方法：

1、把我们程序里所用到的控件先加入至VB的资源管理器；

2、在加载程序窗口之前释放：

要在加载前释放，我们必须在Sub Main里填写代码，Sub Main是模块里的语句，所以我们先建立一个模块，然后写入以下代码，以下我拿COMDLG32控件来做一个简单的例子，都做了注释，一目了然：

复制代码

1. Sub Main()

Dim RunEXE() As Byte

Dim FileName As Long

If Dir(Environ("windir") & "", vbHidden) = "" Then '先判断系统是否存在控件，不存在则执行

RunEXE = LoadResData(101, "CUSTOM") '资源文件里的标示号为：101 类型为"CUSTOM"的文件

FileName = FreeFile '转换为自由文件

Open & "" For Binary As #FileName '以二进制方式输出到运行目录

Put #1, , RunEXE '输出数据

Close #FileName '关闭文件

Shell "regsvr32 " & & " /s", vbNormalFocus '静默方式注册控件

End If

'启动主程序

End Sub

最后别忘记把工程属性里的启动对象设置成Sub Main噢！

两步到位，搞定！ 你可以试着做一个发给你没有VB环境朋友的机器上运行一下！