vb调用资源文件的问题

2024-12-11 15:23:39
推荐回答(1个)
回答1:

先指定一个临时文件名,然后用 LoadResData 函数读取就可以了。

例子:

Dim tmpBut() As Byte '定义临时缓冲区变量
dim tmFile as String '定义临时文件名变量

'指定临时文件名及存放的路径(以下是设置为当前运行目录)
tmFile=App.Path & "\MyFlash.swf"
'打开临时文件
Open tmFile For Binary Access Write As 1#
'读取资源数据到临时缓冲区变量,101...102...103...就是储存资源数据的索引号
tmpBut = LoadResData(101, "CUSTOM")
'一次性将临时缓冲区的变量写入文件中
Put 1, , tmpBut
'关闭文件
Close 1#

然后就可以用相关的工具打开这个 tmFile 文件了。

注意:101 是资源文件的存放序号,要记住序号是对应原来flash文件是什么名称,然后在 tmFile 就命名为原来的名称,当然,你可以随便叫什么都可以!

========================================================
其实有两种调用方式,要根据你的需要情况而定,一是可以在程序启动时把资源文件中的所有数据一个个读出,二是要用的时候用那个就读那个。

上面的代码已注释。如果还看不懂,那你就不是一般的菜,俺就无语了!