



免费预览已结束,剩余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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 2025年智能穿戴设备中金纳米粒子技术创新应用分析报告
- 2025年新能源行业企业社会责任报告编制与优化建议报告
- 2025年核能发电安全性提升与欧美市场拓展潜力研究报告
- 2025年唐山社区考试试题及答案
- 第11课 变迁中的家园教学设计-2025-2026学年初中艺术·美术苏少版2024七年级上册-苏少版2024
- DB65T 4411-2021 热泵干制哈密瓜片技术规程
- 2025年高风险作业考试题及答案
- DB65T 4355-2021 南疆冬小麦机械化匀播高产栽培技术规程
- 毒气应急处理预案(3篇)
- 数学专业教学测试题及答案
- 肿瘤生物免疫治疗及护理-课件
- 小学数学四年级上册《数对》课件
- 廉政审查报告
- 高中英语选择性必修一 Unit 2 Assessing your progress(34张)
- 液压传动全套ppt课件(完整版)
- 《基础统计》教学案例“郑州市大瓶装纯水市场调查”统计应用案例
- 建设工程施工合同(示范文本)解读课件
- 南瑞继保后台监控使用厂家培训版本
- 高中美术 《设计》艺术与技术的结合——产品设计 1 课件
- 贵阳市征地统一年产值和征地区片价补偿标准
- 小学数学德育纲要
评论
0/150
提交评论