Question

VB怎样使用资源载入声音

我自己弄程序的声音在自己电脑能听到，但在别人的电脑里是没有声音的。我的VB资源类型为"CUSTOM"，标识号101，语言：中国简体保存在桌面的资源名称为：工程1.RES 路径为D:\Users\hp\Desktop\工程1.RESMP3声音来源路径是D:\Users\hp\Desktop\123.mp3，使用的是系统的mediaplayer播放器载入声音的。 我是菜鸟....看过很多代码，但不大看得懂，哪个高手能帮我弄个代码，复制上就能用的（最好加上一点点菜鸟能看懂的注解）。谢谢

Answer 1

可使用loadresdata函数,以下是说明: LoadResData 函数 用以从资源 (.res) 文件装载若干可能类型的数据，并返回一个 Byte 数组。语法LoadResData(index, format)LoadResData 函数的语法包含下列部分：部分描述index必需的。一个整数或字符串，它用来指定资源文件中数据的标识符 (ID)。ID 标识符为 1 的资源保留给应用程序的图标。Format必需的。一个数值，它用来按照下列“设置值”中的描述，指定返回数据的原始格式。该数值也可以是用户定义资源的字符串名。
设置值用于 format 的设置值有： 设置描述1光标资源2位图资源3图标资源4菜单资源5对话框6字符串资源7字体目录资源8字体资源9加速键表10用户定义资源12群组光标14群组图标
说明LoadResData 从资源文件装载的数据可以达到 64K。对位图、图标、光标资源类型使用 LoadResData 将返回包含该资源中的实际二进制位的字符串。如果想使用实际的位图、图标或资源，请使用 LoadResPicture oˉêy.LoadResData 的使用对于 Visual Basic 应用程序本地化有好处，这是因为需要翻译的资源在一个资源文件中被隔离，并且无须访问源代码或重新编译该应用程序。 我觉得如果是声音文件的话,那 format应该10(用户自定义资源)

Answer 2

Dim T() As Byte
T = LoadResData(101, "custom") '读取资源
Open App.Path & "\1.mp3" For Binary As #1'保存成Mp3
Put #1, , T
Close然后你把保存的文件指定到播放器就可以了

Answer 3

声音文件只有你自己的电脑里有,不如直接按照原路径直接播放,用资源不是在哪都能放了吗?所以只要这个地址有这个音乐,那就是你的电脑了

Answer 4

用资源文件不如直接吧MP3放到程序目录直接播放