' 将资源文件中的文件释放到硬盘上可以用这个函数。Option Explicit' 将资源文件中的文件导出到硬盘 ' ID 为资源文件中的文件标识号, FileName 为文件导出到硬盘后的存放路径及文件名 Function ExportFileFromRes(ByVal ID As Long, ByVal FileName As String) As Boolean ExportFileFromRes = False Dim bytDbt() As Byte Dim intT As Integer If Dir(FileName) <> "" Then ExportFileFromRes = False Exit Function End If bytDbt = LoadResData(ID, "CUSTOM") intT = FreeFile Open FileName For Binary As intT Put intT, , bytDbt Close intT ExportFileFromRes = True End Function
'在资源编辑器中加入一个自定义资源,如"c",资源名称是"OUTEXE".Private Sub Command3_Click() Dim bArr() As Byte '定义一个动态数组. bArr = LoadResData("OUTEXE", "CUSTOM") '剩下的,就是次数组BARR写到硬盘即可. End Sub
'例如:在资源编辑器中自定一个资源(CUSTOM).资源的ID是.TABDA. '可参考下面方式加载. function outres() Dim bArr() As Byte bArr = LoadResData("Tada", "CUSTOM") '将 BARR 写到硬盘即可. end function
' ID 为资源文件中的文件标识号, FileName 为文件导出到硬盘后的存放路径及文件名
Function ExportFileFromRes(ByVal ID As Long, ByVal FileName As String) As Boolean
ExportFileFromRes = False
Dim bytDbt() As Byte
Dim intT As Integer
If Dir(FileName) <> "" Then
ExportFileFromRes = False
Exit Function
End If
bytDbt = LoadResData(ID, "CUSTOM")
intT = FreeFile
Open FileName For Binary As intT
Put intT, , bytDbt
Close intT
ExportFileFromRes = True
End Function
Dim bArr() As Byte '定义一个动态数组.
bArr = LoadResData("OUTEXE", "CUSTOM")
'剩下的,就是次数组BARR写到硬盘即可.
End Sub
资源文件允许将应用程序特定版本的全部文本和位图收集到一起。这可以包括常数声明、图标、屏幕文本,以及可能在本地化版本之间或在修订版本或特定的配置之间发生变化的其它材料。向工程中添加资源
可以使用资源编译器外接程序创建资源文件。编译过的资源文件带有 .res 扩展名。每个工程只能包含一个资源文件。资源文件实际上是由一系列独立的字符串、位图或者其它项目组成的,其中每一项都有一个唯一的标识符。标识符可能是 Long 类型或 String 类型,取决于资源所代表的数据类型。例如,字符串的标识符为 Long 型,而位图的标识符则为 Long 型或 String 型。如想在代码中检索资源,应知道每个资源的标识符。引用资源的函数参数可以使用 Variant 数据类型。要将新资源文件添加到您的工程中,请按照以下步骤执行: 从“工具”菜单中选择“资源编辑器”,将在资源编辑器窗口打开一个空的资源文件。注意 必须安装资源编辑器外接程序。有关安装外接程序的信息,请参阅“管理工程”中的“使用向导和外接程序”。
在资源编辑器工具栏中选择“保存”按钮以保存资源文件。文件将被添加到“相关文档”部分下的“工程资源管理器”中。
要将已存在的资源文件添加到您的工程中,请
从“工程”菜单中选择“添加新资源”。您的工程中任何已存在的资源文件将被替换。
警告 假如您对已存在的资源文件做任何修改,将可能影响使用此资源文件的其它工程。确保您将文件保存在一个新文件名下。注意 必须安装资源编辑器外接程序。有关安装外接程序的信息,请参阅“管理工程”中的“使用向导和外接程序”。详细信息 关于资源文件的详细信息,请参阅“国际化”中的“使用本地化资源文件”。注意 Windows 资源文件随 16 位或 32 位应用程序而不同,如果试图将一个 16 位资源文件添加到一个工程中,Visual Basic 将产生一条错误信息。为了将资源文件添加到工程中,可从“工程”菜单中选择“添加文件”命令,这与将别的文件添加至工程中完全一样。一个工程只能接受一个资源文件,如果试图添加第二个扩展名为 .res 的文件,将产生错误。在代码中使用资源
Visual Basic 提供了三个函数从资源文件中检索数据以供在代码中使用。函数 描述
LoadResString 返回一个文本字符串。
LoadResPicture 返回一个 Picture 对象,例如位图、图标或光标。
LoadResData 返回一个 Byte 数组,用于象 .wav 之类的文件。
详细信息 请参阅相应函数主题。
'可参考下面方式加载.
function outres()
Dim bArr() As Byte
bArr = LoadResData("Tada", "CUSTOM")
'将 BARR 写到硬盘即可.
end function