来源：https://blog.csdn.net/miaozk2006/article/details/82417156
在几乎所有的Windows应用程序中都拥有资源文件，这些文件定义使用应用程序将要显示很多的用户界面元素，以及提供程序所需要的各种类型数据的存储场所。资源文件在VC应用程序中应用十分广泛，在VB应用中却很少提及它。其实在开发VB应用程序时，一样可以将要用到的字符串、位图、图标和其它类型的数据等做成一个资源文件。因为这样做至少有以下几个优点：（1）提高性能减少内存空间的占用，这是因为字符串、位图、图标和数据可以不必在程序启动或调用窗体时就全部加载，而是根据需要随时从资源文件中加载。(2)将所需要的资源文件中单独存放在一个资源文件中，使用移植程序和更改一些界面显示变得十分简单，不必访问程序的源代码。
下面就和大家具体谈谈如何在VB中建立和使用资源文件。
首先，我们先了解一下windows应用程序中一般经常使用的资源：
位图：位图是用于创建应用程序用户界面的图像。例如，用户可以为工具栏按钮创建一套位图，也可以创建在其它窗口上显示的位图。一般来说，都是在图像编辑器中创建位图，然后再将该位图添加到资源文件中。
图标：图标是类似于位图的小图像，然而，虽然位图可以具有任意大小的尺寸，但是图标却小得多，通常为16＊16像素或32＊32像素。图标使用的很多方法与位图一样。然而，图标通常被用作代表最小化应用程序的图象、代表应用程序文档类型的图像和其它类型的应用系统。
字符串表：就是指文本串的一个表格，通常来说字符串用来显示菜单命令的提示、对话框中和消息框中显示的信息。要访问串表格中的文本串，需引用串的ID，它与定义表格的源文件中的串相联系。
光标：光标是代表鼠标在屏幕上的位置的图像。尽管windows 系统定义和许多类型的光标，但用户也可以创建自己需要的光标。
定制资源：定制资源是用户想存储在其应用程序资源文件中的任何类型的数据。这些数据可以是文本文件或二进制文件，用户可以用任何喜欢的方式定制资源。资源文件只是作为存储区域。创建了定制资源，可以避免必须从磁盘文件中加载数据，因为数据随资源文件一起加载。
对话框：对话框的资源定义包括样式标志（控制对话框外观及行为的值）以及对话框中含控件的大小和位置。
菜单栏：用户应用程序的菜单栏也可以在资源文件中定义。可以在资源文件中指定命令和命令的ID，以用命令在菜单中的位置。
加速器：加速器也称为热键。它们是用户快速选取命令时所按下的键，使用热 键时，不必在应用程序的菜单中寻找命令。加速器在一个表格中定义，这个表将按键与命令资源的ID联系起来。
那么在VB开发环境中如何使用这些资源呢？
1、添加资源文件编辑器，
启动VB6.0的IDE集成环境，新建一个工种。点选菜单“外接程序”下的“外接程序管理器”,在弹出的对话框的列表框中选择“VB 6资源编辑器”,选择加载并单击“确定“后退出对话框。这样在“工具”菜单栏中就有一项“vb资源编程器”了。打开这个工具就可以进行资源文件的编辑了。
2、编辑资源文件
在资源编辑器中编辑资源文件非常简单。它可是编辑我们在上面先提到的位图、图标、光标、字符串及定制资源五种类型的资源，如图1所示：
在进行编辑时，点击相应的图标就可以添加资源了。
编辑资源的方法也很容易，以添加图片为例看一看添加位图的方法：点击添加位图按钮，在弹出的对话框中选择一个位图文件，单击“OK”后，位图的添加就完成了，在这里要注意属性按钮，点击它以后，可以选择请语言版本并输入资源的ID号，这个ID号是标识一类资源的唯一编号，必须记住资源的ID号，以使在应用程序中调用。编辑好资源后，关闭资源编辑器，资文件自动加入新建的工种内。另外，也必须将资源文件保存。其它资源的编辑方法也大体上一样。
3、使用资源文件，在应用程序中调用资源文件与直接使用资源基本上是一致的。对了，在一个工种中只能保存一个资源文件，在使用资源文件之前，请必须保证资源已经加入到资源文件中了。
调用资源文件中资源的函数有：
LoadResString 返回一个文本字符串。语法：LoadResString(index) index必需是一个整数，它用来指定资源文件中数据的标识符（即经常提到的ID号），如果ID号为1的资源保留给应用程序图标。
LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法：
LoadResPicture(index, format)
LoadResPicture 函数的语法包含下列部分：
参数 描述
index 一个整数或字符串，它用来指定资源文件中数据的标识符 (ID) 。ID标识符为 1 的资源保留给应用程序的图标。
format 必需的。一个数值或常数，如下列“设值"中所描述的，指定返回数据的格式。
用于 format 的设置值有：
vbResBitmap 位数 0 位图资源
vbResIcon 图标 1 图标资源
vbResCursor 2 光标资源
说明：可以使用 LoadResPicture 函数代替对存储在 Form 或控件的 Picture 属性中的图形的引用。
LoadResData 返回一个Byte数组，用以从资源 (.res) 文件装载若干可能类型的数据。语法 为：LoadResData(index, format)
LoadResData 函数的语法包含下列部分：
部分 描述
index 必需的。一个整数或字符串，它用来指定资源文件中数据的标识符 （ID)。ID 标识为 1 的资源保留给应用程序的图标。
Format 必需的。一个数值，它用来按照下列“设置值"中的描述，指定返回数据的原始格式。该数值也可以是用户定义资源的字符串名。
设置值 用于 format 的设置值有：
设置值 描述
1 光标资源
2 位图资源
3 图标资源
4 菜单资源
5 对话框
6 字符串资源
7 字体目录资源
8 字体资源
9 加速键表
10 用户定义资源
12 群组光标
14 群组图标
说明：LoadResData 从资源文件装载的数据可以达到 64K。
最后我们用一个简单的例子来说明这几个函数的用法：
（1）建立一个窗体，在窗体上放置三个按钮,一个图片框用来显示图片、图标。
按照前面讲述的方法添加资源文件编辑器并建立工程文件，里面包含一个字符串，位图、图标、光标和一个自定义的资源。
程序代码如下所示：
Private Sub cmdLoadData_Click()
Dim tt As Byte
End Sub
Private Sub cmdLoadPicture_Click()
picTest.Picture = LoadResPicture(101, 1) '如何为0表示位图，为2表示光标
End Sub
Private Sub cmdLoadstring_Click()
Dim str As String
str = LoadResString(101)
MsgBox str
End Sub
下面详细说明资源文件的使用方法:
LoadResData 返回一个Byte数组，用以从资源 (.res) 文件装载若干可能类型的数据。语法为： LoadResData(index, format)
LoadResData 函数的语法包含下列部分：
部分 描述
index 必需的。一个整数或字符串，它用来指定资源文件中数据的标识符 （ID)。ID 标识为 1 的资源保留给应用程序的图标。
Format 必需的。一个数值，它用来按照下列“设置值"中的描述，指定返回数据的原始格式。该数值也可以是用户定义资源的字符串名。
设置值 用于 format 的设置值有：
设置值 描述
1 光标资源
2 位图资源
3 图标资源
4 菜单资源
5 对话框
6 字符串资源
7 字体目录资源
8 字体资源
9 加速键表
10 用户定义资源
12 群组光标
14 群组图标
VB 中资源文件的使用技巧
一、开发中英（简、繁）双版本
现在比较流行的软件都会有中文版、英文版、繁体版等等多个版本，并可以根据系统的语言自动显示相适应的版本，那么这个功能在 VB 是如何实现得呢的：
1、 首先通过 API 函数GetSystemDefaul tLCID 判断系统的语言
Option Explicit
Dim lang As String
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Sub Form_Load()
Dim LocaleID As Long
LocaleID = GetSystemDefaultLCID
Select Case LocaleID
Case &H404
MsgBox "当前系统为：中文繁体", , "语言"
Case &H804
MsgBox "当前系统为：中文简体", , "语言"
lang = "1"
Case &H409
MsgBox "当前系统为：英文", , "语言"
lang = "2"
End Select
End Sub
2、然后程序就可以加载保存在资源文件（这里我们就是使用的这种方法）、注册表、INI 文件、文本文件或其他文件中的各类字符串，以达到达到实现多种语言的目的。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“编辑字符串表格”输入如下资料：
标识号 中文（中国）
101 例子
102 中文
103 英文
201 Ensample
202 Chinese
203 English
⑶保存资源文件，写如下代码：（自定义装载字符的函数 LoadString）
Sub LoadString()
Me.Caption = LoadResString(Int(lang & "01"))
Command1(0).Caption = LoadResString(Int(lang & "02"))
Command1(1).Caption = LoadResString(Int(lang & "03"))
End Sub
⑷怎么样一个简单的中英双版本的程序就做出来了，如果把 lang 的值设置为 1，则显示中文，如果把 lang 的值设置为 2，则显示英文。
ps：更简单实用的方法是:把不同语言文字放在同一个标识号ID对应的不同字符串表格中即可。VB 会自动实现多种语言转换!
二、 直接播放EXE文件中的声音文件
使用资源文件，可以直接在在EXE文件中播放声音文件（WAV文件），使程序显得更加专业。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“添加自定义资料”，增加任意的 WAV 文件，再双击刚刚创建的自定义资源，弹出”编辑属性”窗口，定义如下：
类型： "WAVE"
标识号： 102
语言： 中文（中国）
⑶保存资源文件，写如下代码：
Option Explicit
Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long
Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Public Const SND_ASYNC = &H1&
Public Const SND_MEMORY = &H4&
Private Sub Command5_Click() 注释：播放 WAV 文件
Dim bArr() As Byte
bArr = LoadResData(102, "WAVE")
sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
End Sub
⑷按 F5 运行本程序，点击 Command 按钮，就可以听到你选定的 WAV 文件的声音了。
三、 直接调用各类图标、光标图片
在一个程序中，我们可能需要调用多个 图标、光标、图片文件，一般来说我们主要是使用 ImageList 控件，不过其时使用资源文件是最好的方法（可以少使用一个控件呀）。
⑴启动 VB6.0，在“外接程序→外接程序管理器”中加载“Visual Basic 6 资源编辑器”
⑵在 VB 资源编辑器窗口中，点击“添加光标”，“添加图标”，“添加位图”，装载所需要的文件。
⑶程序代码如下：
Me.Icon = LoadResPicture(101, vbResIcon) 注释：加载图标
Picture1.Picture = LoadResPicture(101, vbResBitmap) 注释：加载位图
Command1.MouseIcon = LoadResPicture(101, vbResCursor) 注释：加载光标
Private Sub Command1_Click()
'功能：测试加载jpg图片
'先要引用：Microsoft ActiveX Data objects 2.8 library
'貌似在资源编辑器里没有jgp格式的，只有添加到自定义文件里
'然后设置 类型："jpg",标识号:8
'LoadResData返回的是byte，所以用二进制流去读
Dim iStm As ADODB.stream
Set iStm = New ADODB.stream
With iStm
.Mode = adModeReadWrite
.Type = adTypeBinary '二进制模式
.Open
.Write LoadResData(8, "jpg") '这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.(改了adSaveCreateOverWrite就能覆盖了)
.SaveToFile App.path & "\test1.jpg", adSaveCreateNotExist
End With
Image1.Picture = LoadPicture(App.path & "\test1.jpg") '关闭对象
iStm.Close '如果用了adSaveCreateNotExist，就得加上下面这句删除保存的图片文件
Kill App.path & "\test1.jpg"
End Sub
Private Sub Command1_Click()
'功能：测试加载jpg图片
'先要引用：Microsoft ActiveX Data objects 2.8 library
'貌似在资源编辑器里没有jgp格式的，只有添加到自定义文件里
'然后设置 类 ...
Dim Filenumber As Long
Dim file() As Byte
file = LoadResData(8, "jpg")
Filenumber = FreeFile
Open App.path & "\test.jpg" For Binary As #Filenumber
Put #Filenumber, , file
Close #Filenumber
Image1.Picture = LoadPicture(App.path & "\test.jpg")
'格式：（其主要思想是通过二进制数据的操作） '由于返回的是byte
Dim file() As Byte
file = LoadResData(标识符id, 你定义的格式)
Filenumber = FreeFile
Open App.path & "\原文件格式的名称" For Binary As #Filenumber
Put #Filenumber, , file
Close #Filenumber
'下面就是你要操作的内容，比如加载图片到图片框；调用exe等等；
资源档有什么用处呢？ 最重要的有两个地方
1.国际发行：我们将Application中所有的文字从Resource用读取，那么，只要更动
Resource档的内容，就可以用不同语言的方式来显示。
2.管理资源：例如说，我们的AP中用了数百张的图片或声音，不用Resource档的话，在发行出去的AP中， 就必需有数百个图形、声音档，那似乎不太好，使用Resource档，便可以将这些图形、声音放进一个.Res档。使用RC.exe来Compiler我们所定义的Resource档， RC.EXE在vb5.0光碟中的\TOOLS\RESOURCE
Resources 可分成两大部份:
String resources (text strings such as "Hello World").
Binary resources (icons, bitmaps, cursors, sounds, video等)
String Resources语法： STRINGTABLE [load-option] [mem-option]
BEGIN
stringID string
END
参数说明 :
load-option 可以是以下两种 Option Description
PRELOAD Resource is loaded immediately.
LOADONCALL (Default) Resource is loaded when called.
mem-option 可以是以下三种
Option Description
FIXED Resource remains at a fixed memory location.
MOVEABLE Resource can be moved if necessary in order to compact memory.
DISCARDABLE Resource can be discarded if no longer needed.
stringID 自行定义的integer，用来定义字串 resource.
string 我们定义的字串，字串前后要用双引号(")将之包围起来，字串长度不可超过255 bytes，而且字串要在同一行。
BINARY RESOURCES
语法:
nameID keyword [load-option] [mem-option] filename
参数:
nameID 定义一个於以下keyword类别中，一个唯一的名称或数字，即，有三个BITMAP类别的Resource，其nameID可以分别为1,2,3不重覆，而另有三个ICON的资源，其nameID亦可分别为1,2,3，不会和BITMAP的1,2,3相冲突。注：ICON类别的nameID不可以为0，0保留给 Visual Basic icon。nameID亦可以为字串
keyword 定义资源类别 Option Description
BITMAP Defines a bitmap (.BMP)
CURSOR Defines a cursor (.CUR)
ICON Defines an icon (.ICO)
SOUND Defines a wave file (.WAV)
VIDEO Defines a video file (.AVI)
例：打开一执行文件
Dim App1() As Byte '定义数组
If Dir("11.exe") = "" Then '是否存在
App1 = LoadResData(101, "CUSTOM") '资源位置
Open "11.exe" For Binary As #2
Put #2, , App1 ' 释放
Close #2 '关闭文件号
End If
