vb.net做音頻播放器，如何消除對(duì)話框

有點(diǎn)復(fù)雜，如果是Excel，有Application.DisplayAlerts=False'這是Excel阻止警告

創(chuàng)新互聯(lián)成都網(wǎng)站建設(shè)定制制作，是成都網(wǎng)站營(yíng)銷推廣公司,為成都濕噴機(jī)提供網(wǎng)站建設(shè)服務(wù),有成熟的網(wǎng)站定制合作流程，提供網(wǎng)站定制設(shè)計(jì)服務(wù)：原型圖制作、網(wǎng)站創(chuàng)意設(shè)計(jì)、前端HTML5制作、后臺(tái)程序開發(fā)等。成都網(wǎng)站設(shè)計(jì)熱線：13518219792

我粗看了下MediaPlayer沒有提供類似的接口，試著用消息捕獲的方法看看

Protected?Overrides?Sub?WndProc(ByRef?m?As?System.Windows.Forms.Message)?'消息捕獲

If?m.Msg?=?H999?Then?'這里的值要你自己去測(cè)試出來（就是彈出對(duì)話框時(shí)的值)

SendKeys.Send("{ENTER}")?'發(fā)送回車鍵

End?If

MyBase.WndProc(m)

End?Sub

vb.net中如何播放聲音，是要什么控件嘛？

My.Computer.Audio.Play("SoundFile.wav")

SoundFile.wav是你要播放的聲音文件的路徑

VB.NET 怎樣實(shí)現(xiàn)不中斷地播放資源文件里的音頻？ 用戶點(diǎn)一次鼠標(biāo)就播放資源文件里時(shí)長(zhǎng)為三秒的

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim th As New Threading.Thread( _

Sub()

My.Computer.Audio.Play(New Byte() {}, AudioPlayMode.WaitToComplete)

End Sub)

th.Start()

End Sub

如果是WAV文件，這樣就行了，不會(huì)同時(shí)播放

VB.net如何加載音效？

方法一：調(diào)用系統(tǒng)DLL（這個(gè)有點(diǎn)不完善，也就是播放聲音時(shí)窗體無法控制，效果相當(dāng)于Enabled=true，但音頻播放完畢后就沒事了）

Private?Declare?Function?sndPlaySound?Lib?"Winmm.dll"?Alias?"sndPlaySoundA"?(ByVal?lpszSoundName?As?String,?ByVal?uFlags?As?Long)?As?Long

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?SoundFile?As?String,?Result?As?Long

SoundFile?=?"D:\KuGou\Pianoboy?-?第105天.wav"?'此處為路徑

Result?=?sndPlaySound(SoundFile,?0)

End?Sub

方法二：使用WindowsMediaPlayer（WindowsMediaPlayer1的可見為False）

先添加一個(gè)windowsmediaplayer控件（工具箱里沒有，需要手動(dòng)添加）

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

WindowsMediaPlayer1.visible=False

Me.WindowsMediaPlayer1.URL?=?"D:\KuGou\Pianoboy?-?第105天.mp3"

End?Sub

上面的都是點(diǎn)擊button1（按鈕1）后播放聲音，若是鼠標(biāo)移動(dòng)到某控件上發(fā)出聲音的話改一下觸發(fā)事件就OK了。

vb.net 中 如何實(shí)現(xiàn) 播放mp3文件

在.NET里，沒有托管的音樂播放器，用API只能播放WAV格式，對(duì)于MP3等形式的音頻文件，就要依賴于其他控件了，常用的就是

MediaPlayer。使用方法：

在工具箱上點(diǎn)右鍵，選擇“選擇項(xiàng)目(Choose

Items)”，切到COM選項(xiàng)卡，找到

Windows

Media

Player，

勾選，確定

在t工具箱上，把剛才加入的MediaPlayer控件，拖放到窗體上

代碼：

WindowsMediaPlayer1.URL

=

"mp3文件路徑，支持網(wǎng)絡(luò)路徑"

WindowsMediaPlayer1.Ctlcontrols.play

基本就OK了，至于其他的操作諸如下一曲上一曲暫停停止，直接看

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

VB.net 如何同時(shí)播放多個(gè)資源文件內(nèi)的wav

用API mciSendString可以同時(shí)播放多個(gè)聲音，需要提供路徑。

資源文件很麻煩，要用反射讀取出來，再用IO寫到磁盤路徑。

你是做游戲把？軟糖建議是不要使用資源文件，而使用本地文件。

用個(gè)BGM文件夾保存背景音樂，用SE文件夾保存音效（學(xué)習(xí)RPG Maker的做法）

API代碼奉上，具體實(shí)現(xiàn)模塊字?jǐn)?shù)超過最大值，請(qǐng)下載附件

Imports?System.Text

'''?summary

'''?可播放MPEG,AVI,WAV,MP3,MID,WMA等格式的音頻文件,*不支持OGG

'''?/summary

Public?Class?音頻設(shè)備

'聲明API函數(shù):?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函數(shù):?mciGetErrorString

System.Runtime.InteropServices.DllImport("winmm.dll",?EntryPoint:="mciSendString")

Public?Shared?Function?mciGetErrorString(errCode?As?Integer,

errMsg?As?StringBuilder,

buflen?As?Integer)?As?Integer

調(diào)用方法

Public?Class?Form1

Dim?音頻設(shè)備?As?New?音頻設(shè)備

Private?Sub?Button1_Click(sender?As?Object,?e?As?EventArgs)?Handles?Button1.Click

Dim?路徑?=?"F:\音樂文件名.mp3"

音頻設(shè)備.打開("自定義名稱1",?路徑)

音頻設(shè)備.播放("自定義名稱1")

'音頻設(shè)備.暫停("自定義名稱1")

'音頻設(shè)備.繼續(xù)("自定義名稱1")

'音頻設(shè)備.關(guān)閉("自定義名稱1")

End?Sub

End?Class

如滿意，請(qǐng)采納，還有不懂的請(qǐng)追問，謝謝。

新聞標(biāo)題：vb.net播放音頻,vbnet播放音頻文件
網(wǎng)頁(yè)網(wǎng)址：http://chinadenli.net/article48/dseidep.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站制作、微信公眾號(hào)、面包屑導(dǎo)航、動(dòng)態(tài)網(wǎng)站、網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)