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

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

創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計、網(wǎng)站制作、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的杭錦后網(wǎng)站設(shè)計、移動媒體設(shè)計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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

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

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

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

MediaPlayer。使用方法：

在工具箱上點右鍵，選擇“選擇項目(Choose

Items)”，切到COM選項卡，找到

Windows

Media

Player，

勾選，確定

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

代碼：

WindowsMediaPlayer1.URL

=

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

WindowsMediaPlayer1.Ctlcontrols.play

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

WindowsMediaPlayer1.Ctlcontrols.

里面的方法吧。

vb.net制作 mp3播放器

用VB制作一個簡單的MP3播放器

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

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

下面就是各個對象的代碼了：

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è)備初始化

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

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)

'顯示歌曲總長

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)前時間

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

'這個函數(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