1、第一步:打开你的 VB 工程,点击菜单【外接程序】【外接程序管理器】,就会弹出外接程序管理器(如图 12)图 1图 2:外接程序管理器第二步:在外接程序管理器中找到”VB 6 资源编辑器”,选中它,然后在右下角的选项中选中“在启动中加载”和“加载/卸载”这两项(如图 3)图 3第三步:点击菜单【工具】【资源编辑器】 ,打开资源编辑器图 4图 5:资源编辑器下面我们添加一个名为 ZiYuan.DAT 的文件图 6添加之后,返回到资源编辑器窗口见图 7(下一页)点击这里添加自定义文件注意:一定要记住你添加的文件的序号“101” ,文件添加之后是不保存文件名的,这个“101”是唯一能确定这个文件在资
2、源文件中的位置然后保存资源文件:点击资源编辑器上方的保存按钮,在弹出的保存对话框中找到你当前工程的目录保存就行第四步:如何在程序中提取资源文件假设我们的程序需要使用这个 ZIYuanDAT 文件,我们可以在程序使用该文件之前把它从资源文件里提取出来例如我们在窗体的加载事件中提取资源文件,并保存到程序目录中,保存为 ZIYuan.datPrivate Sub Form_Load()Dim FileByte() As Byte 用来缓存文件内容Dim sName As String 要生成的文件名称If Right(App.Path) = “ Then 当是根目录时候有“sName = App.Path & “ZiYuan.dat“ElsesName = App.Path & “ZiYuandat“End IfIf Dir(sName) sName Then 如果该文件不存在就建立它FileByte() = LoadResData(101, “CUSTOM“) 101 是文件号Open sName For Binary As #1Put #1, , FileByteClose #1End If至此该文件已经动态生成End Sub第五步:生成可执行文件 EXE接下啦要干嘛呢?哈哈,生成后就可以用啦!