vb.net音樂(lè)播放器 vb音樂(lè)播放器代碼

VB.NET一個(gè)關(guān)于音樂(lè)播放器的問(wèn)題，求高手解答！

你在axwindowsmediaplayer1.url=t之前把音樂(lè)播放器關(guān)一下，如果你的音樂(lè)一直播放的話(huà)其默認(rèn)的播放文件地址是正在播放的那個(gè)，你那條刷新播放文件地址的命令可能沒(méi)用。試試吧！！

創(chuàng)新互聯(lián)建站主要從事網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)察雅,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專(zhuān)業(yè),歡迎來(lái)電咨詢(xún)建站服務(wù):028-86922220

vb.net制作 mp3播放器

用VB制作一個(gè)簡(jiǎn)單的MP3播放器

用VB制作一個(gè)簡(jiǎn)單的MP3播放器 利用API函數(shù)[mciSendString]可以輕松實(shí)現(xiàn)MP3音樂(lè)文件的播放。下面這段程序?qū)崿F(xiàn)了MP3播放的大部分常規(guī)操作，對(duì)其稍加修改，做一個(gè)100KB大小的MP3播放器輕而易舉

啟動(dòng)VB程序，在窗體上放置6個(gè)命令按鈕，三個(gè)標(biāo)簽，一個(gè)公用對(duì)話(huà)框、一個(gè)進(jìn)度條、一個(gè)狀態(tài)欄和一個(gè)計(jì)時(shí)器，窗本的布置請(qǐng)參考附圖按鈕"Open MP3 File"是用來(lái)打開(kāi)對(duì)話(huà)框選擇MP3文件，其他5個(gè)按鈕分別為Play(播放)、Pause(暫停)、Stopplay(停止播放)、Back(向后跳躍)、Prew(向前跳躍)。Label1用來(lái)表示歌曲當(dāng)前時(shí)間；label2放在時(shí)度條的最左邊，Caption屬性為"00：00"；lable3放在時(shí)度條的右邊，用來(lái)表示歌曲總長(zhǎng)。下面就可以編寫(xiě)代碼了。首先在窗體的"通用聲明"部分聲明函數(shù)

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"(Byval lpstrCommand As String,ByVal lpstrRetumString As String,ByVal uReturnLength As long,ByVal hwndCallback as long) As longDim mfn As String

下面就是各個(gè)對(duì)象的代碼了：

Private Sub Form_load()

mfn=""

play.Enabled=False

pause.Enabled=False

Stopplay.Enabled=False

back.Enabled=False

prew.Enabled=False

Timer1.Enabled=False

Timer1.Interval=500

End SubPrivate Sub open_Click()

On Error Goto err

With CommonDialog1

.CancelError=True

.Filter="音樂(lè)文件|*.mp3;*.wav;*.mid"

.Flags=cdlOFNNoChangeDir And cdlOFNPathMustExist

.Action=1

stopplay_Click '停止按鈕同時(shí)可以設(shè)備初始化

mfn=.FileName '這個(gè)程序中文件名一定不能帶空格

Form1.Caption=.FileName

play.Enabled=True

End With

play_Click

Exit Sub

err:

End SubPrivate Sub play_Click()

On Error Resume Next

Dim t As Long

t=mciSendString("open " + mfn,0,0,0) 'Open后邊的空格一定不能丟

Dim ret As String * 128

t=mciSendString("status " + mfn + " length",ret,128,0)

'顯示歌曲總長(zhǎng)

ret=Left(ret,8)

If ret"" Then

ProgressBar1.Min=0

ProgressBar1.Max=Val(ret)

Label3.Caption=gettime(Val(ret))

End If

play.Enabled=False

pause.Enabled=True

stopplay.Enabled=True

back.Enabled=True

prew.Enabled=True

t=mciSendString("status " + mfn +" mode",ret,128,0)

'得到設(shè)備的當(dāng)前狀態(tài)，是播放還是暫停等等

ret=Left(ret,8)

StatusBar1.Panels(1).text=ret

'在狀態(tài)欄顯示播放狀態(tài)

t=mciSendString("play " + mfn + " form " + Str(ProgressBar1.Value),0,0,0)

'開(kāi)始播放

Timer1.Enabled=True

End Sub

Private Sub pause_Click()

t%=mciSendString("pause " + mfn,0,0,0)

'發(fā)出暫停的命令

play.Enable=True

pause.Enabled=False

stopplay.Enabled=True

back.Enabled=False

prew.Enabled=False

End Sub

Private Sub stopplay_Click()

t%=mciSendString("stop " + mfn,0,0,0)

t%=mciSendString("close " + mfn,0,0,0)

'停止播放

play.Enabled=True

pause.Enabled=False

stopplay.Enabled=False

back.Enabled=False

prew.Enabled=False

End Sub

Private Sub back_Click()

t%=mciSendString("play " + mfn + " from " + Str(ProgressBar1.Value-(ProgressBar1.Max\10)),0,0,0) '向后跳一小段再播放

End Sub

Private Sub prew_Click()

t%=mciSendString("play " + mfn + " from " + Stri(ProgressBar1.Value+(ProgressBar1.Max\10)),0,0,0) '向前跳一小段再播放

End Sub

Private Sub Timer1_Timer()

Dim t As Long

Dim ret As String * 128

t=mciSendString("status " + mfn + " position",ret,0,0)

'得到當(dāng)前播放位置

ret=left(ret,8)

ProgressBar1.Value=Val(ret)

Label1.Caption=gettime(Val(ret))

'顯示歌曲當(dāng)前時(shí)間

If ProgressBar1.Value=ProgressBar1.Max Then

stopplay_Click

End If

t=mciSendString("status " + mfn + " mode",ret,128,0)

ret=Left(ret,8)

StatusBar1.Panels(1).Text=ret

End SubPrivate Sub Form_Unload(Cacel As Integer)

t%=mciSendString("stop " + mfn,0,0,0)

t%=mciSendString("close " + mfn,0,0,0)

End SubPrivate Function Gettime(position As Long) As String

'這個(gè)函數(shù)的功能是把以長(zhǎng)整型表示的時(shí)間轉(zhuǎn)換為電子鐘式的"**:**"

Dim min,sec

min=position/1000

min=min/60

sec=min-Int(min)

min=Int(min)

sec=60 * sec / 100

sec=Int(sec * 100)

gettime=Str(min) + ":" + Str(sec)

End Function

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

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

我粗看了下MediaPlayer沒(méi)有提供類(lèi)似的接口，試著用消息捕獲的方法看看

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

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

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

End?If

MyBase.WndProc(m)

End?Sub

vb.net中編輯音樂(lè)播放器用什么控件添加音樂(lè)

需要用到COM控件，例如media player、Real player等，或者用 .NET 自帶的類(lèi)庫(kù) System.Media下面的 SoundPlayer來(lái)播放音樂(lè)

當(dāng)前名稱(chēng)：vb.net音樂(lè)播放器 vb音樂(lè)播放器代碼
瀏覽地址：http://m.kartarina.com/article38/hgeosp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、虛擬主機(jī)、自適應(yīng)網(wǎng)站、Google、全網(wǎng)營(yíng)銷(xiāo)推廣、建站公司

廣告

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