将文件放入资源文件中.

lyhvbvc 2004-08-27 05:17:28
有些.exe文件安将只需要一个文件就行了.
就是因为它里面包含了很多文件在资源里.rs
怎么样把文件放进资源中又怎样把它解出来呢??????????????????
...全文
122 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
helanshan 2004-08-27
在程序中使用:set me.icon=loadrespicture("winupd",vbresicon)
回复
helanshan 2004-08-27
资源文件是纯文本文件,可用记事本建立源资源文件,关于编译成资源文件,一楼已说了。
1、定义文本字符串格式
STRINGTABLE
BEGIN
101, "这是一行文本,编号101“
102, "你好“
103, "欢迎“
end
在程序中通过编号加载文本:s=loadrestring(101)
2、定义文本资源
格式为:资源名称 关键字 文本文件名称
如:txtfile TEXTFILE "c:\abc.txt"
在程序中使用,一楼已说了。
3、定义非文本资源
格式:资源名称 关键字 文件名称
如:bg WAVE "c:\windows\media\start.wav '声音文件
cle BITMAP "文件路径” ’位图文件
winupd ICON "文件路径” ’图标
arwm CURSOR "文件路径” ’游标
回复
online 2004-08-27
参考
http://www.sijiqing.com/vbgood/article/00523830.html
http://www.sijiqing.com/vbgood/experience/index.asp?action=read&id=3721
回复
bluesky23 2004-08-27
GZ
学习
回复
danielinbiti 2004-08-27
在记事本里写txtfile TEXTFILE "路径\t.txt"
把它存为help.rc
可以在vb目录下找到rcdll.dll和rc.exe拷到和help.rc同一目录下,
在dos下在那个目录下编译
rc help.rc
在用vb中工程/添加文件把编译出的help.res 添加进去
这个和别人的机子无关,就相当于vb程序的一部分,自带,别人不用提供文件
在vb 中
Private Sub Form_Load()
Dim lblstr() As Byte, get_lblstr As String
lblstr = LoadResData("txtfile", "TEXTFILE")
get_lblstr = StrConv(lblstr, vbUnicode)
Text1.Text = get_lblstr
End Sub
这是我以前回答怎么把文本读到文本框时答的,
其它的图片用BITMAP 加载用LoadResPicture
图标用ICON 加载用LoadResPicture
鼠标图标CURSOR加载用LoadResPicture
声音WAVE加载用LoadResData
主要是这些其它还有具体问题具体回答了


注销
regsvr32 /u lsio.dll
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-08-27 05:17
社区公告
暂无公告