下面是读取资源文件的代码:Dim strFilePath As String
Dim i As Longi = FreeFile
Open strFilePath For Binary Access Write Lock Read Write As i
Put i, , LoadResData(101, "Custom")Close i
奇怪?
Dim i As Longi = FreeFile
Open strFilePath For Binary Access Write Lock Read Write As i
Put i, , LoadResData(101, "Custom")Close i
奇怪?
dim b() as byte
b=LoadResData(101, "Custom")
Open strFilePath For Binary Access Write Lock Read Write As i
Put i, , b
Close i