
1、在自己的工程里添加一个资源文件。
2、打开添加的资源文件,资源类型选择为音频,点击添加资源把准备好的wav格式音乐文件添加进入资源文件。
3、设置资源属性和文件属性为嵌入
4、代码以及调用方法
Private Sub Play_Music(ByVal Mname As String) Dim res As IO.Stream = Reflection.Assembly.GetEntryAssembly.GetManifestResourceStream("宇宙诗集." & Mname) '把这里的'宇宙诗集'更改为你的工程名 Dim bytes(res.Length - ) As Byte res.Read(bytes, , bytes.Length) My.Computer.Audio.Play(bytes, AudioPlayMode.BackgroundLoop)
End Sub