用API mciSendString可以同時播放多個聲音,需要提供路徑。
創(chuàng)新互聯建站,為您提供重慶網站建設、成都網站制作、網站營銷推廣、網站開發(fā)設計,對服務成都餐廳設計等多個行業(yè)擁有豐富的網站建設及推廣經驗。創(chuàng)新互聯建站網站建設公司成立于2013年,提供專業(yè)網站制作報價服務,我們深知市場的競爭激烈,認真對待每位客戶,為客戶提供賞心悅目的作品。 與客戶共同發(fā)展進步,是我們永遠的責任!
資源文件很麻煩,要用反射讀取出來,再用IO寫到磁盤路徑。
你是做游戲把?軟糖建議是不要使用資源文件,而使用本地文件。
用個BGM文件夾保存背景音樂,用SE文件夾保存音效(學習RPG Maker的做法)
API代碼奉上,具體實現模塊字數超過最大值,請下載附件
Imports?System.Text
'''?summary
'''?可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音頻文件,*不支持OGG
'''?/summary
Public?Class?音頻設備
'聲明API函數:?mciSendString
System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")
Public?Shared?Function?mciSendString(strCommand?As?String,
strReturn?As?StringBuilder,
iReturnLength?As?Integer,
hwndCallback?As?Integer)?As?Integer
End?Function
'聲明API函數:?mciGetErrorString
System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")
Public?Shared?Function?mciGetErrorString(errCode?As?Integer,
errMsg?As?StringBuilder,
buflen?As?Integer)?As?Integer
調用方法
Public?Class?Form1
Dim?音頻設備?As?New?音頻設備
Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click
Dim?路徑?=?"F:\音樂文件名.mp3"
音頻設備.打開("自定義名稱1",?路徑)
音頻設備.播放("自定義名稱1")
'音頻設備.暫停("自定義名稱1")
'音頻設備.繼續(xù)("自定義名稱1")
'音頻設備.關閉("自定義名稱1")
End?Sub
End?Class
如滿意,請采納,還有不懂的請追問,謝謝。
res 沒有實例化應該,你下個斷點在Dim bytes(res.Length - 1) As Byte這句,然后看看res是不是為nothing
代碼是沒有錯的,但是其中關鍵是聲音文件資源定義字串必須使用根命名空間,不能用程序集名稱;還有就是聲音文件必須選屬性為嵌入資源。
My.Computer.Audio.Play(My.Resources.xxxmusic1xxx, AudioPlayMode.Background)
給你個 很簡單的
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
‘ 聲明函數 mciexcute 加入庫 winmm.all
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play E:\music\music\單身情歌.wma ")
'在 formload過程中 調用函數 mciexcute 里面 是 文件 路徑
End Sub
End Class
網頁題目:vb.net資源文件音樂 vbr音樂
當前網址:http://muchs.cn/article40/hggoho.html
成都網站建設公司_創(chuàng)新互聯,為您提供微信公眾號、網站制作、Google、ChatGPT、網站設計公司、網站內鏈
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯