资源文件相关函数

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 Function 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"