VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
楼主: icecept

[经验技巧] 资源文件精解示例

[复制链接]
 楼主| 发表于 2007-12-26 13:08:06 | 显示全部楼层

LoadResData用法示例

具体内容看附件源程序
这个示例表明loadresdata 可以代替loadresstring和loadrespicture
此程序给出了loadresdata和loadresstring的对应关系,用loadrespicture调用图片、图标、和光标换成loadresdata的方法请参照2楼的数据对应表。

LoadResData系统管理员登录.rar

2.63 KB, 下载次数: 908

回复 支持 反对

使用道具 举报

发表于 2007-12-26 13:08:53 | 显示全部楼层

好帖

回复 支持 反对

使用道具 举报

发表于 2007-12-26 15:42:26 | 显示全部楼层
关于加载exe:
释放的exe最后在程序退出时,怎么杀不掉那个exe,很奇怪!

kill Environ("temp") & "\华容道.exe"

因为不想生成一个这样的东西,保持“程序清洁”
回复 支持 反对

使用道具 举报

发表于 2007-12-26 16:15:20 | 显示全部楼层
原帖由 hexinchun 于 2007-12-26 10:31 发表
Private Sub Command1_Click()
    '功能:测试加载jpg图片
    '先要引用:Microsoft ActiveX Data objects 2.8 library
    '貌似在资源编辑器里没有jgp格式的,只有添加到自定义文件里
    '然后设置 类 ...


经过对魔灵兄程序的指导,对其进行精华吸收,总结读自定义格式,呵呵!
   
  1. Dim Filenumber As Long
  2.     Dim file() As Byte
  3.    
  4.     file = LoadResData(8, "jpg")
  5.    
  6.     Filenumber = FreeFile
  7.    
  8.     Open App.Path & "\test.jpg" For Binary As #Filenumber
  9.     Put #Filenumber, , file
  10.     Close #Filenumber
  11.     Image1.Picture = LoadPicture(App.Path & "\test.jpg")
复制代码


上面这段代码简单多了,希望大家都吸收!

格式:(其主要思想是通过二进制数据的操作)
    '由于返回的是byte
    Dim file() As Byte
   
    file = LoadResData(标识符id, 你定义的格式)
   
    Filenumber = FreeFile
   
    Open App.Path & "\原文件格式的名称" For Binary As #Filenumber
    Put #Filenumber, , file
    Close #Filenumber
    ’下面就是你要操作的内容,比如加载图片到图片框;调用exe等等;

评分

参与人数 1威望 +10 收起 理由
icecept + 10 精典总结

查看全部评分

回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-12-27 15:59:48 | 显示全部楼层

回复 #15 hexinchun 的帖子

总结的很不错啊,让人一看一目了然,加分。

评分

参与人数 1威望 +5 收起 理由
Top + 5

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2008-1-3 13:04:22 | 显示全部楼层
强人,这样的才是真正高手,让人身进其中
回复 支持 反对

使用道具 举报

发表于 2008-1-4 20:38:01 | 显示全部楼层
讲的真不错
支持啦
回复 支持 反对

使用道具 举报

发表于 2008-1-4 20:54:57 | 显示全部楼层
不错
真够详细的,学习了,加分
回复 支持 反对

使用道具 举报

发表于 2008-1-4 21:38:26 | 显示全部楼层
问一个问题:能不能将数据库(如MDB)加入资源文件呢?
并且不要释放出来,而是直接包含在EXE文件中!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-1-5 08:42:05 | 显示全部楼层

回复 #20 lemondian 的帖子

如果不释放出来,就无法操作mdb文件。
给一个提示,先把mdb文件释放到一个隐蔽的地方。用完后程序自行删除mdb文件,不过在再删除时,请先关闭mdb文件,否则会出现“你没有权”的错误。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2019-11-22 13:06

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表