vb點(diǎn)虐 中 如何實(shí)現(xiàn) 播放mp3文件

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

目前成都創(chuàng)新互聯(lián)已為上千的企業(yè)提供了網(wǎng)站建設(shè)、域名、雅安服務(wù)器托管、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、高郵網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

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點(diǎn)虐 中如何播放聲音，是要什么控件嘛？

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

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

vb點(diǎn)虐 制作 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ì)話框、一個(gè)進(jìn)度條、一個(gè)狀態(tài)欄和一個(gè)計(jì)時(shí)器，窗本的布置請(qǐng)參考附圖按鈕"Open MP3 File"是用來(lái)打開(kāi)對(duì)話框選擇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