VB 调用资源问题

来源：百度知道 编辑：UC知道 时间：2024/06/17 01:55:49
我想在程序生成后运行时播放音乐，所以需要把音乐文件随程序附带，我现在已经把一mp3文件制成res资源添加到工程中，问题是该怎么调用并播放该mp3文件，希望有高手给解决哈，最好程序能写清楚点，万分感谢！！
解决后再高分给！
如果附带的资源是rar文件，怎么调用rar内部的文件啊~~~ 求解

首先在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

其实如果你要在程序运行的时候播放音乐很简单，根本不需要调用外部MP3资源

直接在工程--部件，添加Windows Media Player 控件。在窗体上放个这样的控件。然后在右边的属性窗口--自定义。添加你自己要放的MP3就可以了，再设置WindowsMediaPlayer的 visible设置为false 即为不可见。运行程序的时候只有歌曲，看不见控件！

调用rar已经没什么意义了。只要你运行VB程序就会释放出RAR，别人会直接打开RAR用，就不会被你限制了，如果你在RAR设置密码。那么你的程序也将打不开RAR里面的文件