资源文件相关函数
1 LoadResString函数
函数功能：从资源文件中加载文本字符串资源
格式： s=LoadResString(文本编号)
2 LoadResPicture函数
函数功能:用以从资源 (.res) 文件装载位图、图标或光标
格式：LoadResPicture(index, format)
用于 format 的设置值有：
| 常数 | 值 | 描述 |
| vbResBitmap 位图 | 0 | 位图资源 |
| vbResIcon 图标 | 1 | 图标资源 |
| vbResCursor | 2 | 光标资源 |
3 LoadResData函数
函数功能:用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组
格式：LoadResData(index, format)
用于 format 的设置值有：
| 设置 | 描述 |
| 1 | 光标资源 |
| 2 | 位图资源 |
| 3 | 图标资源 |
| 4 | 菜单资源 |
| 5 | 对话框 |
| 6 | 字符串资源 |
| 7 | 字体目录资源 |
| 8 | 字体资源 |
| 9 | 加速键表 |
| 10 | 用户定义资源 |
| 12 | 群组光标 |
| 14 | 群组图标 |
附加：自定义资源提取函数
Public SaveFileFromRes(vntResourceID As Variant, sType As String, sFileName As String) As Boolean
Dim bytImage() As Byte
Dim iFileNum As Integer
On Error GoTo SaveFileFromRes_Err
SaveFileFromRes = True
'从资源文件中调入数据
bytImage = LoadResData(vntResourceID, sType)
iFileNum = FreeFile
'打开文件并保存数据
Open sFileName For Binary As iFileNum
Put #iFileNum, , bytImage
Close iFileNum
Exit
SaveFileFromRes_Err:
SaveFileFromRes = False: Exit
End
'使用举例: SaveFileFromRes 101, "CUSTOM", apppath & "lrqg.mp3"
