先指定一个临时文件名,然后用 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 就命名为原来的名称,当然,你可以随便叫什么都可以!
========================================================
其实有两种调用方式,要根据你的需要情况而定,一是可以在程序启动时把资源文件中的所有数据一个个读出,二是要用的时候用那个就读那个。
上面的代码已注释。如果还看不懂,那你就不是一般的菜,俺就无语了!