VB_如何用WMP控件播放res资源文件?

来源：百度知道 编辑：UC知道 时间：2024/05/22 07:05:39
我是个新手..

我要将一段mp3文件集成到vb程序当中.
将mp3文件添加为自定义资源,并做成res文件,然后导入..

然后程序应该如何编写呢?

我写了要么就是说资源文件没有找到,要么就是播放器停在那不会动,要么就是说类型不匹配..

请指点一下.
谢谢.

首先在VB 资源管理器中 建立自定义资源
custom 默认多出一个101
然后通过语句，假设这是一个MP3文件
Call UnRes(101, "CUSTOM", "c:\temp.mp3")
UnRes是自定义函数，具体代码
Sub UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String)
Dim Temp() As Byte
Temp = LoadResData(ResID, ResName)
Open UnResPath For Binary As #1
Put #1, , Temp()
Close #1
End Sub
然后是利用播放器播放
Wmp.URL = "c:\temp.mp3"
Wmp.settings.autoStart = True
Wmp.Controls.play