VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

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

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

[复制链接]
发表于 2010-6-16 20:32:55 | 显示全部楼层
好东西 ,收藏!
回复 支持 反对

使用道具 举报

发表于 2010-6-18 19:00:14 | 显示全部楼层
我是来学习的啊,
回复 支持 反对

使用道具 举报

发表于 2010-6-19 10:56:29 | 显示全部楼层
眼界有开阔了谢谢楼主
回复 支持 反对

使用道具 举报

发表于 2010-6-28 11:09:00 | 显示全部楼层
网上找的 补全版主的
VB 6.0的Picture Box可以显示GIF和JPEG图象,但是由于GIF资源不是Windows的标准资源,所以不能使用LoadResPicture的办法来调入GIF图象。如果要解决这个问题,需要先将GIF资源写到一个临时文件,然后用LoadPicture显示文件,最后再删除掉磁盘上的临时文件。我们假定资源文件如下:

102 GIF about.gif

你可以用这样的语句来实现:

SaveFileFromRes(102, "GIF", "C:\about.gif")

Picture1.picture = LoadPicture("C:\about.gif")

Kill "C:\about.gif"

这里的C:\about.gif只是一个例子,在实际编程可以用Windows API的GetTempFileName来生成临时文件名(但GetTempFileName生成的临时文件扩展名为.tmp,需改为.gif)。这里的SaveFileFromRes函数来完成写临时文件的工作,具体代码如下:

  1. Public Function SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean

  2. '======================================================='

  3. '函数:SaveFileFromRes 从http://www.china-askpro.com下载 '

  4. '======================================================='

  5. 目的: 从资源文件调入自定义资源,然后写入磁盘上的文件 '

  6. '返回值: 如果没有错误为True,否则为False '

  7. '注意: sType 必须同资源文件的定义相同(包括大小写)! '

  8. ' 假定sFilename是合法的,可写的 '

  9. '======================================================='

  10. Dim bytImage() As Byte ' Always store binary data in byte arrays!

  11. Dim iFileNum As Integer 'Free File Handle

  12. On Error GoTo SaveFileFromRes_Err

  13. SaveFileFromRes = True

  14. 'Load Binary Data from Resource file

  15. bytImage = LoadResData(vntResourceID, sType)

  16. 'Get Free File Handle

  17. iFileNum = FreeFile

  18. 'Open the file and save the data

  19. Open sFileName For Binary As iFileNum

  20. Put #iFileNum, , bytImage

  21. Close iFileNum

  22. Exit Function

  23. SaveFileFromRes_Err:

  24. SaveFileFromRes = False: Exit Function

  25. End Function
复制代码

评分

参与人数 1威望 +1 金钱 +1 人气 +1 收起 理由
icecept + 1 + 1 + 1 谢谢了

查看全部评分

回复 支持 反对

使用道具 举报

发表于 2010-7-1 10:27:09 | 显示全部楼层
好贴啊,牛人一大堆!
回复 支持 反对

使用道具 举报

发表于 2010-7-21 10:57:40 | 显示全部楼层
不错,但我没看懂
回复 支持 反对

使用道具 举报

发表于 2010-8-21 20:56:20 | 显示全部楼层
收藏了,谢谢了,很好的学习示例
回复 支持 反对

使用道具 举报

发表于 2010-8-24 11:15:30 | 显示全部楼层
好帖,好技术,好人啊
回复 支持 反对

使用道具 举报

发表于 2010-8-24 13:07:30 | 显示全部楼层
谢谢.收藏......
回复 支持 反对

使用道具 举报

发表于 2010-8-26 16:01:37 | 显示全部楼层
差点忘记了 附上个不用临时文件读文本的方法 代码来自网络 非俺原创



使用数据流的方式读取资源文件,可以不用创建临时文件。
先引用MS ActiveX Data Objects 2.7 Library,并创建个资源文件添加自定义内容。 ...
xingjing 发表于 2010-1-21 12:58


学习。。。。
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-4-2 00:38

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