当前位置: 主页 > 日志 > VB >

资源文件相关的相关操作

资源文件相关函数

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

[日志信息]

该日志于 2009-02-25 15:59 由 redice 发表在 redice's Blog ,你除了可以发表评论外,还可以转载 “资源文件相关的相关操作” 日志到你的网站或博客,但是请保留源地址及作者信息,谢谢!!    (尊重他人劳动,你我共同努力)
   
验证(必填):   点击我更换验证码

redice's Blog  is powered by DedeCms |  Theme by Monkeii.Lee |  网站地图 |  本服务器由西安鲲之鹏网络信息技术有限公司友情提供

返回顶部