7,763
社区成员
发帖
与我相关
我的任务
分享释放资源出错
Dim icondll() As Byte
icondll = LoadResData(101, 3)
Open "c:\windows\drive.ico" For Binary As #3
Put #3, , icondll
Close #3
如上一段代码：我在资源编辑器里导入了20个ICO图标文件（直接点图标按钮导入的，非自定义按钮导入），现在像释放其中的图标为单独的图标文件，但代码在运行时提示找不到与标识号101对应的资源。请各位高手帮忙，不胜感激！！
...全文
请发表友善的回复…
发表回复
pioion 2008-06-30
- 打赏
- 举报
谢谢你！！Very……
pioion 2008-06-27
- 打赏
- 举报
程序内部调用是用loadrespicture，释放图片要以二进制释放，应该用的loadresdata函数。而且试过loadrespicture，可以释放出来，但不能用
嗷嗷叫的老马 2008-06-27
- 打赏
- 举报
不会吧?
我一直这样用,EXE也这样释放,貌似没见着有什么问题呀.
为了防止BUG,我又新建了个工程测试了一下,没发现你所说的问题.
我的代码是我以前写的一个模块,如下:
测试代码如下:
Call GetResFile(101, "d:\1.ico")
经比较,字节完全一样.
你好好检查一下你的代码吧
我一直这样用,EXE也这样释放,貌似没见着有什么问题呀.
为了防止BUG,我又新建了个工程测试了一下,没发现你所说的问题.
我的代码是我以前写的一个模块,如下:
'*************************************************************************
'**模 块 名：GetResFile
'**说 明：将自定义资源中的文件释放出来
'**创 建 人：嗷嗷叫的老马
'**描 述：紫水晶工作室 http://www.m5home.com
'**日 期：2007年5月24日
'**版 本：V3.0
'**描 述：直接使用二进制写,不需要再指定文件大小了.
'**修 改 人：嗷嗷叫的老马
'**日 期：2007年5月26日
'*************************************************************************
Public Sub GetResFile(ByVal ResID As Long, ByVal FileName As String)
Dim bFile() As Byte
bFile = LoadResData(ResID, "CUSTOM") '将自定义资源中资源读入数组
If Dir(FileName) = "" Then '只有文件不存在时,才释放
Open FileName For Binary As #1
Put #1, , bFile
Close #1
End If
End Sub测试代码如下:
Call GetResFile(101, "d:\1.ico")
经比较,字节完全一样.
你好好检查一下你的代码吧
pioion 2008-06-27
- 打赏
- 举报
If selectflag <> 2 Then
icondll = LoadResData(102, "custom")
Open "c:\windows\drive.ico" For Binary As #3
Put #3, , icondll
Close #3
End If
如上面代码：释放出来的资源比原来的资源大0.01K（源文件2.18K，释放出来就成了2.19K），不能使用
嗷嗷叫的老马 2008-06-27
- 打赏
- 举报
你直接用自定义资源吧
反正你载入的图标是用于释放出来,而不是为自己内部使用~~
自定义资源就可以用LoadResData释放出来.
反正你载入的图标是用于释放出来,而不是为自己内部使用~~
自定义资源就可以用LoadResData释放出来.
pioion 2008-06-27
- 打赏
- 举报
郁闷~刚学编程就遇到个bug！谢谢你，给20分了
我现在释放资源怎么办？上面链接的例子是载入资源可以用loadrespicture，但loadrespicture不支持二进制啊，有没解决的办法？
我现在释放资源怎么办？上面链接的例子是载入资源可以用loadrespicture，但loadrespicture不支持二进制啊，有没解决的办法？
嗷嗷叫的老马 2008-06-27
- 打赏
- 举报
啊哈哈哈哈哈哈哈哈
原来这是VB6的一个BUG呀.
看这里:
http://support.microsoft.com/kb/190477/zh-cn
还没注意这个.....:D
原来这是VB6的一个BUG呀.
看这里:
http://support.microsoft.com/kb/190477/zh-cn
还没注意这个.....:D
嗷嗷叫的老马 2008-06-27
- 打赏
- 举报
那101是存在吗?没搞错?
嗷嗷叫的老马 2008-06-27
- 打赏
- 举报
貌似应该用loadrespicture样....
