Question

VB如何调用资源编辑器中的自定义文件

VB如何调用资源编辑器中的自定义文件

Answer 1

VB为支持.res资源增加了三个函数：LoadResPicture()、LoadResString()和LoadResData()。

如显示资源里的图片：
Picutre1.Picture=LoadResPicture(101,0)
101是资源编号

LoadResString()函数用于调入字符串资源。字符串资源对于开发多语种软件比较有用。其使用格式为：
LoadResString(资源ID号)

其它类型调用：
LoadResPicture 用以从资源 (.res) 文件装载位图、图标或光标。它的语法：
LoadResPicture(index, format)
其它的资源可以用:
LoadResData 返回一个Byte数组，用以从资源 (.res) 文件装载若干可能类型的数据。语法为：LoadResData(index, format)

如放WAV音乐：
Dim bArr() As Byte
bArr = LoadResData(102, "WAVE")
sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY
如：
Me.Icon = LoadResPicture(101, vbResIcon) 注释：加载图标
Picture1.Picture = LoadResPicture(101, vbResBitmap) 注释：加载位图
Command1.MouseIcon = LoadResPicture(101, vbResCursor) 注释：加载光标

其实，有LoadResData就可以了，读出字节，写入临时文件，然后调用，就OK了。

追问

flash文件（.swf)那怎么编？？？

追答

flash文件添加到.res里，保存
调用时，先用LoadResData按字节读出，保存到临时文件。
再调用这个临时文件就好了啊。

追问

可以示范一下吗，我编的总是提示资源文件没有找到.
这是我编的代码:（应该怎么改呢？）
Private Sub Command1_Click()
swf = LoadResData(101, 10)
ShockwaveFlash1.Movie = swf
End Sub

追答

先定义Btye类型！

再写入文件，再读出:

Dim Swf() As Byte 'Swf是个Btye类型的数组
Swf  = LoadResData(101,10)
'将资源写入文件
open App.path & "\A.swf" for binary as #1
put #1,,Swf
Close #1
ShockwaveFlash1.Movie = App.path & "\A.swf"

追问

只要一加入shockwaveflash控件就保存不了，保存时有这样的提示。但只要把shockwaveflash控件删掉的话就又可以正常保存。（请问一下，这个问题该怎么办呢？）

追答

你用的shockwaveflash控件版本过高，VB6不支持
应该找：Flash player的版本等于或低于8的版本就OK了。
先删除你电脑里的FLASH Player，然后下载FLASH PLAYER 8或更低的版本，然后再添加，保存，编译即可。编译后，再升级FLASH player也没有关系了。

追问

可以保存了，但是还是提示找不到资源文件啊。

追答

Swf = LoadResData(101,10) '这个101是你资源里保存SWF文件的编码，你不会全不改就照抄了吧。
自己修改一下就行了啊。