你在axwindowsmediaplayer1.url=t之前把音樂播放器關(guān)一下,如果你的音樂一直播放的話其默認(rèn)的播放文件地址是正在播放的那個(gè),你那條刷新播放文件地址的命令可能沒用。試試吧!!
創(chuàng)新互聯(lián)建站主要從事網(wǎng)站設(shè)計(jì)、成都網(wǎng)站設(shè)計(jì)、網(wǎng)頁設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)察雅,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來電咨詢建站服務(wù):028-86922220
用VB制作一個(gè)簡(jiǎn)單的MP3播放器
用VB制作一個(gè)簡(jiǎn)單的MP3播放器 利用API函數(shù)[mciSendString]可以輕松實(shí)現(xiàn)MP3音樂文件的播放。下面這段程序?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"是用來打開對(duì)話框選擇MP3文件,其他5個(gè)按鈕分別為Play(播放)、Pause(暫停)、Stopplay(停止播放)、Back(向后跳躍)、Prew(向前跳躍)。Label1用來表示歌曲當(dāng)前時(shí)間;label2放在時(shí)度條的最左邊,Caption屬性為"00:00";lable3放在時(shí)度條的右邊,用來表示歌曲總長(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 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="音樂文件|*.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)
'開始播放
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
有點(diǎn)復(fù)雜,如果是Excel,有Application.DisplayAlerts=False'這是Excel阻止警告
我粗看了下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
需要用到COM控件,例如media player、Real player等,或者用 .NET 自帶的類庫 System.Media下面的 SoundPlayer來播放音樂
當(dāng)前名稱:vb.net音樂播放器 vb音樂播放器代碼
瀏覽地址:http://muchs.cn/article38/hgeosp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供服務(wù)器托管、虛擬主機(jī)、自適應(yīng)網(wǎng)站、Google、全網(wǎng)營(yíng)銷推廣、建站公司
聲明:本網(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)