Question

vb调用资源文件的问题

我用vb做了个学习系统，其中用到了很多的swf（flash）文件，我起初做的时候是把这些所有的swf文件放在一个data的文件夹里面，直接在这个文件里调用。

后来，为了方便，我把这些swf文件都嵌入了资源文件res中，请问我该怎么调用啊 ？wsf文件太多了，有没有调取res大量文件方便的方法啊？还得改原来的调用路径？高手指点！
请问万炮齐发：我的data里面有100个swf文件，嵌入res后每一个都得像你说的那样调用？？你写的语句我有的没大看懂 能注释一下吗 我很菜 ！

Answer 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 就命名为原来的名称，当然，你可以随便叫什么都可以！

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

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