资源文件精解示例

icecept

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

兵哥PLC

hexinchun

关于加载exe：
释放的exe最后在程序退出时，怎么杀不掉那个exe，很奇怪！

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

因为不想生成一个这样的东西，保持“程序清洁”

hexinchun

原帖由 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等等；

icecept

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

ppo123

强人，这样的才是真正高手，让人身进其中

Top

讲的真不错
支持啦

toudu

不错
真够详细的，学习了，加分

lemondian

问一个问题:能不能将数据库(如MDB)加入资源文件呢?
并且不要释放出来,而是直接包含在EXE文件中!

icecept

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