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