1187
社区成员
将文件放入资源文件中．
有些.exe文件安将只需要一个文件就行了．
就是因为它里面包含了很多文件在资源里.rs
怎么样把文件放进资源中又怎样把它解出来呢？？？？？？？？？？？？？？？？？？
就是因为它里面包含了很多文件在资源里.rs
怎么样把文件放进资源中又怎样把它解出来呢？？？？？？？？？？？？？？？？？？
...全文
当前发帖距今超过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 "文件路径” ’游标
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
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
把它存为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
STM32 单片机管脚详细说明 硬件工程师初学者宝典-单片机管脚注释（图片+文字） 基于STM32F103单片机进行各个管脚复用功能释意，便于初级工程师单片机入门设计，避免设计踩坑，并且帮助工程师把UART,I2C,SWD,ADC,PWM,SDIO等功能管脚进行汇总整理，不用再浪费时间找管脚。
