教你如何在VB中使用资源文件.doc_第1页
教你如何在VB中使用资源文件.doc_第2页
教你如何在VB中使用资源文件.doc_第3页
教你如何在VB中使用资源文件.doc_第4页
免费预览已结束,剩余1页可下载查看

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

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

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论