教你如何在vb中使用资源文件

《教你如何在vb中使用资源文件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一步：打开你的VB工程，点击菜单【外接程序】——>【外接程序管理器】,就会弹出外接程序管理器(如图1~2)图1图2：外接程序管理器第二步：在外接程序管理器中找到”VB6资源编辑器”，选中它，然后在右下角的选项中选中“在启动中加载”和“加载/卸载”这两项(如图3)图3第三步：点击菜单【工具】——【资源编辑器】，打开资源编辑器图4图5：资源编辑器点击这里添加自定义文件下面我们添加一个名为ZiYuan.DAT的文件图6添加之后，返回到资源编辑器窗口见图7（下一页）注意：一定要记住你添加的文件的序号“101”，文件添加

2、之后是不保存文件名的，这个“101”是唯一能确定这个文件在资源文件中的位置然后保存资源文件：点击资源编辑器上方的保存按钮，在弹出的保存对话框中找到你当前工程的目录保存就行第四步：如何在程序中提取资源文件假设我们的程序需要使用这个ZIYuan>DAT文件,我们可以在程序使用该文件之前把它从资源文件里提取出来例如我们在窗体的加载事件中提取资源文件，并保存到程序目录中，保存为ZIYuan.datPrivateSubForm_Load()DimFileByte()AsByte'用来缓存文件内容DimsNameAsStri

3、ng'要生成的文件名称IfRight(App.Path)=""Then'当是根目录时候有""sName=App.Path&"ZiYuan.dat"ElsesName=App.Path&"ZiYuan>dat"EndIfIfDir(sName)<>sNameThen'如果该文件不存在就建立它FileByte()=LoadResData(101,"CUSTOM")'101是文件号OpensNameForBinaryAs#1Put#1,,FileByteClose#1EndIf'至此该文件已经动态生成EndSub

4、第五步：生成可执行文件EXE接下啦要干嘛呢？哈哈，生成后就可以用啦！