LoadResData是从VB的资源文件读取一个文件的函数 |
LoadResData DataID , DataType |
例如你添加了一个资源文件得到的资源号是101号,在 "Test" 文件夹中. |
就可以用LoadResData(101, "Test" ) 获到该 文件。 |
Dim xFileByteArray() As Byte |
xFileByteArray = LoadResData(101, "Test" ) |
'将资源写入文件 |
open App.path & "\A.Txt" for binary as #1 |
put #1,,xFileByteArray |
Close #1 |