音樂播放器vb源碼

㈠ 怎樣用VB製作一個音樂播放器

你到vb吧 點吧內搜索！~

有源代碼的！~

㈡ 用VB做個音樂播放器

工程-->部件-->瀏覽-->選擇msdxm.ocx載入
然後在窗體設計器中創建一個MediaPlayer控制項，名字不用改，不過注意如果專名字不是屬MediaPlayer1就說明該控制項版本和我不一樣，代碼也就不能用了。
接著在Form_load事件中加入代碼：
MediaPlayer1.AutoStart = False '讓播放器不自動播放
MediaPlayer1.FileName = "C:\123.mp3" '載入C:\123.mp3
MediaPlayer1.Play '播放
當然事先要在C盤放一個123.mp3

暫停和停止功能，MediaPlayer控制項自帶。

雖然功能很少但是至少可以實現mp3播放，如果你有不懂的地方，我可以繼續為你解答。

㈢ 用vb怎麼編寫音樂播放器

1.如何載入WindowsMediaPlayer，控制項：
在VB6.0D的菜單欄找到「工程」——「部件」，在彈出的菜單中，拉動滾動條找到WindowsMediaPlayer，將其前面的復選框選中，點擊「應用」「確定」即可，然後你就會在你的的控制項欄中看到WindowsMediaPlayer控制項了。

2.如何播放音樂文件
只需要將WindowsMediaPlayer1.URL賦相應的值即可。
例如要在窗體載入時播放music.mp3這個文件，只要這樣寫代碼。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub
注意：其中的\music.mp3是一個相對路徑表示當前目錄下的文件，即你的工程所保存的位置。

3.如何暫停播放
在command按鈕中加入如下代碼，即可實現。
Private Sub Command4_Click()
WindowsMediaPlayer1.Controls.pause
End Sub

4.如何在暫停播放之後繼續播放
在command按鈕中加入如下代碼，即可實現。
Private Sub Command3_Click()
WindowsMediaPlayer1.Controls.play
End Sub
如果想實現音樂從頭播放，只需要將第二條中播放音樂中代碼再寫一遍即可。
Private Sub Command5_Click()
WindowsMediaPlayer1.URL = VB.App.Path & "\music.mp3"
End Sub

5.停止播放的音樂（關閉播放器）
在command按鈕中加入如下代碼，即可實現。
Private Sub Command1_Click()
WindowsMediaPlayer1.Close
End Sub ----------------------------------------------簡單的話 一句話Private Sub File1_DblClick()
WindowsMediaPlayer1.URL = File1.Path & "\" & File1.List(File1.ListIndex)
End Sub

㈣ 怎麼用VB做個音樂播放器要求用WindowsMediaPlayer，能給代碼最好，謝謝！

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
If List1.ListCount = 0 Then
List1.AddItem Dir1.Path & "\" & File1.FileName '增加曲目到列表中
List1.ListIndex = 0
MediaPlayer1.FileName = List1.Text '設置播放曲目
MediaPlayer1.AutoStart = True
Else
List1.AddItem Dir1.Path & "\" & File1.FileName '增加曲目到列表中
End If
End Sub

Private Sub List1_Click()
Text1.Text = List1.Text
End Sub

Private Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
'自動循環播放
If MediaPlayer1.PlayState = mpStopped Then
If List1.ListIndex < List1.ListCount - 1 Then
List1.ListIndex = List1.ListIndex + 1
MediaPlayer1.FileName = List1.Text
MediaPlayer1.AutoStart = True
End If
End If
End Sub

Private Sub Command1_Click()
End
End Sub

㈤ 用VB6．0製作一個MP3播放器，給出代碼謝謝

用VB製作一個簡單的MP3播放器
用VB製作一個簡單的MP3播放器 利用API函數[mciSendString]可以輕松實現MP3音樂文件的播放。下面這段程序實現了MP3播放的大部分常規操作，對其稍加修改，做一個100KB大小的MP3播放器輕而易舉
啟動VB程序，在窗體上放置6個命令按鈕，三個標簽，一個公用對話框、一個進度條、一個狀態欄和一個計時器，窗本的布置請參考附圖按鈕"Open MP3 File"是用來打開對話框選擇MP3文件，其他5個按鈕分別為Play(播放)、Pause(暫停)、Stopplay(停止播放)、Back(向後跳躍)、Prew(向前跳躍)。Label1用來表示歌曲當前時間；label2放在時度條的最左邊，Caption屬性為"00：00"；lable3放在時度條的右邊，用來表示歌曲總長。下面就可以編寫代碼了。首先在窗體的"通用聲明"部分聲明函數

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
下面就是各個對象的代碼了:
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 = "音樂文件|*.mp3;*.wav;*.mid"
.Flags = cdlOFNNoChangeDir And cdlOFNPathMustExist
.Action = 1
stopplay_Click '停止按鈕同時可以設備初始化
mfn = .FileName '這個程序中文件名一定不能帶空格
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)

'顯示歌曲總長
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)
'得到設備的當前狀態，是播放還是暫停等等
ret = Left(ret, 8)
StatusBar1.Panels(1).Text = ret
'在狀態欄顯示播放狀態
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)
'發出暫停的命令
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)
'得到當前播放位置
ret = Left(ret, 8)
ProgressBar1.Value = Val(ret)
Label1.Caption = Gettime(Val(ret))
'顯示歌曲當前時間
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
'這個函數的功能是把以長整型表示的時間轉換為電子鍾式的"**:**"
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製作一個《簡易媒體播放器.音樂》

我知道怎樣把這樣一個播放器放在YY頻道里

㈦ vb製作音樂播放器

1.如何載入WindowsMediaPlayer，控制項：
在VB6.0D的菜單欄找到「工程」——「部件」，在彈出的菜單中，拉動滾動條找到WindowsMediaPlayer，將其前面的復選框選中，點擊「應用」「確定」即可，然後你就會在你的的控制項欄中看到WindowsMediaPlayer控制項了。
2.如何播放音樂文件
只需要將WindowsMediaPlayer1.URL賦相應的值即可。
例如要在窗體載入時播放music.mp3這個文件，只要這樣寫代碼。
Private
Sub
Form_Load()
WindowsMediaPlayer1.URL
=
VB.App.Path
&
"\music.mp3"
End
Sub
注意：其中的\music.mp3是一個相對路徑表示當前目錄下的文件，即你的工程所保存的位置。
3.如何暫停播放
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command4_Click()
WindowsMediaPlayer1.Controls.pause
End
Sub
4.如何在暫停播放之後繼續播放
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command3_Click()
WindowsMediaPlayer1.Controls.play
End
Sub
如果想實現音樂從頭播放，只需要將第二條中播放音樂中代碼再寫一遍即可。
Private
Sub
Command5_Click()
WindowsMediaPlayer1.URL
=
VB.App.Path
&
"\music.mp3"
End
Sub
5.停止播放的音樂（關閉播放器）
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command1_Click()
WindowsMediaPlayer1.Close
End
Sub

㈧ 如何用VB編寫一個音樂播放器

添加一個 WindowsMediaPlayer，一個CommonDialog，一個list ，一個command
Dim pa As String
Private Sub Command1_Click()
Dim song As String
With CommonDialog1
.FileName = ""
.Filter = "*.MP3|*.mp3;*.avi;*.mid"
.Flags = 512
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub

a = ""
For i = Len(song) To 1 Step -1
k = Mid(song, i, 1)
If k = " " Then '多首歌的分隔符
List1.AddItem a
a = ""
ElseIf k = "\" Then '一首歌時歌名與路徑的分隔符
List1.AddItem a
pa = Left(song, i)
Exit Sub
Else
a = k & a
End If
Next i

End Sub

Private Sub List1_DblClick()
Me.Caption = "我的播放器 當前播放" & pa & List1.Text
WindowsMediaPlayer1.URL = pa & List1.Text
End Sub

㈨ 想學著用VB寫一個 音樂播放器，

加上windows media player 控制項就可以了，好像這是學VB的入門，不過要實現多的功能就不容易了

㈩ 求一個vb編寫的音樂播放器代碼