VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

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

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

[复制链接]
发表于 2010-1-21 12:58:49 | 显示全部楼层
差点忘记了 附上个不用临时文件读文本的方法 代码来自网络 非俺原创



使用数据流的方式读取资源文件,可以不用创建临时文件。
先引用MS ActiveX Data Objects 2.7 Library,并创建个资源文件添加自定义内容。
该方法是读取文本信息的,其他二进制信息不知道行不行……

    Dim bHTM() As Byte
    Dim objStream As New ADODB.Stream

    '读取资源文件中的自定义文本到文本框
    bHTM = LoadResData(101, "CUSTOM")
    objStream.Mode = adModeReadWrite
    objStream.Type = adTypeBinary
    objStream.Open
    objStream.Write bHTM
    objStream.Position = 0
    objStream.Type = adTypeText
    objStream.Charset = "BIG5"
    Text1.Text = objStream.ReadText
回复 支持 反对

使用道具 举报

发表于 2010-1-24 11:43:30 | 显示全部楼层
内容真不错哦
学习了
回复 支持 反对

使用道具 举报

发表于 2010-1-28 14:13:55 | 显示全部楼层
受益良多,谢版主!
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2010-2-22 01:16:12 | 显示全部楼层
不错
真够详细的,学习了
回复 支持 反对

使用道具 举报

发表于 2010-3-22 18:04:40 | 显示全部楼层
好人啊 。学习了
回复 支持 反对

使用道具 举报

发表于 2010-3-22 18:16:47 | 显示全部楼层
全部看完, 好东西 ~
回复 支持 反对

使用道具 举报

发表于 2010-4-18 16:25:00 | 显示全部楼层
不收藏不支持觉得对不起我自己
回复 支持 反对

使用道具 举报

发表于 2010-6-4 14:53:55 | 显示全部楼层
顶一下
回复 支持 反对

使用道具 举报

 楼主| 发表于 2010-6-7 18:47:43 | 显示全部楼层
要是把资源文件用好了,可以演化出更多的你意想不到的方法。
回复 支持 反对

使用道具 举报

发表于 2010-6-9 11:31:41 | 显示全部楼层
很好,该顶!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2020-7-11 05:10

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