Ⅰ 在vb中加入一個音樂播放器
第一：如果你僅僅是想播放WAV這樣的背景音樂的話，可以使用API函數，不用添加控制項，這樣可以減少系統資源，方法如下：
在通用中聲明：
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hMole As Long, ByVal dwFlags As Long) As Long
接著在form 的 load 事件中寫如下代碼：
Call PlaySound(App.Path + "音樂名字.wav", 0&, &H1)//必須在當前文件夾下
第二：添加Windows Media Player 控制項
把Windows Media Player 控制項visible 屬性設置為false
url 屬性設置為 音樂文件的絕對路徑並且加上音樂文件名字
或者在load 事件中設置此屬性
第三：添加 real player 控制項
visible 屬性設置為 false
注意，此時設置的是 source 屬性為音樂文件而不是url屬性
第四：microsoft multimedia control 6.0控制項
設置相關屬性
Ⅱ 用vb怎樣製作音樂播放器啊
好的，我們的教程現在開始——————
這個是我已經做好了的窗體，來看一下，這個應該熟悉吧？就是windows media player 它是怎麼添加的呢？呵呵，其實很簡單的哦，認真看我的操作，選中這個，因為我已經選擇好了，有這個是不行的，還要添加一個空間，那就是commondialog，它的添加給media player一樣的，Microsoft Common Dialog Control 6.0 選中這個就行了，它對應的圖標是這個————看我滑鼠。把這個兩個再添加到窗體上就可以了。
然後就是寫代碼，我想你是想做個播放器吧？呵呵，我就把代碼順便給你寫了出來....下面看代碼
'代碼開始————————————————————
Private Sub Command1_Click()
CommonDialog1.Action = 1
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Form1.Caption = "影音播放器"
Command1.Caption = "打開"
Command2.Caption = "退出"
End Sub
_________________________________________________
這個就是代碼了，下面我們運行一下看能不能運行啊...期待中ing...o(∩_∩)o...貌似可以哦，^_^
:-)，看到沒，一個播放器做成了！！！怎麼樣？有點成就感吧？當然要做好一個播放器不只是這么簡單的哦，還需要繼續努力！好了，教程到此結束.我這個支持你選擇播放的！！！
以上程序在xp下測試通過！
Ⅲ 請高手指教,在vb.net中，如何編寫一個最簡單的音樂播放器
值得參考（從功能和外觀上都不錯內）容：
http://hi..com/lml%C7%E5%B7%E7%C2%E4%D2%B6/blog/item/21b92402ef718ad77a89475a.html
http://hi..com/lml%C7%E5%B7%E7%C2%E4%D2%B6/blog/item/518360eaaddcb3f7ce1b3eaf.html
Ⅳ 如何用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製作音樂播放器
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做個音樂播放器
工程-->部件-->瀏覽-->選擇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製作一個音樂播放器
你到vb吧 點吧內搜索！~
有源代碼的！~
Ⅷ vb製作音樂播放器。怎麼辦
1.怎麼載入WindowsMediaPlayer，控制項：
在VB6.0D的菜單欄找到「工程」——「部件」，在彈出的菜單中，拉動滾動條找到WindowsMediaPlayer，將其前面的復選框選中，點擊「應用」「確定」即可，之後你就會在你的的控制項欄中看見WindowsMediaPlayer控制項了。
2.怎麼播放音樂(music)文件
只需要將WindowsMediaPlayer1.URL賦相應的值即可。
例如要在窗體載入時播放music.mp3這個文件，只需要這樣寫代碼。
Private
Sub
Form_Load()
WindowsMediaPlayer1.URL
=
VB.App.Path
&
"\music.mp3"
End
Sub
注意：其中的\music.mp3是1個相對路徑表示當前目錄下的文件，即你的工程所保存的位置。
3.怎麼暫停播放
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command4_Click()
WindowsMediaPlayer1.Controls.pause
End
Sub
4.怎麼在暫停播放之後繼續播放
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command3_Click()
WindowsMediaPlayer1.Controls.play
End
Sub
假如想實現音樂(music)從頭播放，只需要將第二條中播放音樂(music)中代碼再寫一遍即可。
Private
Sub
Command5_Click()
WindowsMediaPlayer1.URL
=
VB.App.Path
&
"\music.mp3"
End
Sub
5.停止播放的音樂(music)（關掉播放器）
在command按鈕中加入如下代碼，即可實現。
Private
Sub
Command1_Click()
WindowsMediaPlayer1.Close
End
Sub
Ⅸ VB音樂播放器怎麼做
先添加windows
mediaplayer控制項，然後在他的自定義屬性里設置你下載的歌曲地址，運行就可以播放了。
Ⅹ VB怎麼做音樂播放器
工具面板並在部件添加窗口裡選擇「Windows MediaPlayer」來添加這個控制項
控制項具體用法參考專http://wenku..com/link?url=_Em67cES0sdP7vkvarrOMSonsCv-2B0nlG2N8dsKJoDgPfWvy_3zLzfJzUxPZGa-NWucgiQG
我就不復制了屬