VBGood网站全文搜索 Google

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

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 5980|回复: 10

[经验技巧] VB释放资源文件内的文件的方法

[复制链接]
 楼主| 发表于 2010-2-2 17:59:46 | 显示全部楼层 |阅读模式
本帖最后由 haob 于 2010-2-2 18:03 编辑

RT。今天时间仓促,直接给代码了,看得懂的拿去用,看不懂的等我有时间了再来解释啊:
On Error Resume Next
Dim fname As String
Dim v
Dim byt() As Byte
fname = App.Path & "\XXX.exe"
If Dir(fname) = "" Then
v = LoadResData(101, "CUSTOM")
byt = v
Open fname For Binary As #1
Put #1, 1, byt()
Close #1
End If
发表于 2010-2-3 20:20:13 | 显示全部楼层
我湿了~!
回复 支持 反对

使用道具 举报

头像被屏蔽
发表于 2010-2-3 21:58:45 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
回复 支持 反对

使用道具 举报

发表于 2010-2-3 23:49:59 | 显示全部楼层
我也湿了
回复 支持 反对

使用道具 举报

发表于 2010-2-4 09:20:45 | 显示全部楼层
好代码,不过早会了.
回复 支持 反对

使用道具 举报

发表于 2010-2-4 13:47:03 | 显示全部楼层
不好意思,我射了。。不好意思
回复 支持 反对

使用道具 举报

发表于 2010-2-5 13:37:23 | 显示全部楼层
我泄了
回复 支持 反对

使用道具 举报

发表于 2010-2-5 18:43:29 | 显示全部楼层

fname = App.Path & "\XXX.exe"
这就别往出拿了,有时候会出错的
回复 支持 反对

使用道具 举报

发表于 2010-2-5 21:38:26 | 显示全部楼层
洗内裤去..
回复 支持 反对

使用道具 举报

发表于 2011-9-28 10:23:40 | 显示全部楼层
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-6-29 20:52

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