用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)。
下面就可以編寫代碼了。首先在窗體的"通用聲明"部分聲明函數(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 long
Dim 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 Sub
Private 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 Sub
Private 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)
我要發(fā)表評(píng)論 作者筆名 簡(jiǎn)短內(nèi)容 發(fā)表時(shí)間
:
2
'顯示歌曲總長(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
我要發(fā)表評(píng)論 作者筆名 簡(jiǎn)短內(nèi)容 發(fā)表時(shí)間
:
3
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 Sub
Private Sub Form_Unload(Cacel As Integer)
t%=mciSendString("stop " + mfn,0&,0,0)
t%=mciSendString("close " + mfn,0&,0,0)
End Sub
Private 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
圖中5個(gè)控制按鈕，其實(shí)是把字體設(shè)為"Webdings"，讓它們的Caption屬性分別為"4" ";" "<" "7" "8"
就可以了
發(fā)表時(shí)間
:
