A. 用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播放，如果你有不懂的地方，我可以繼續為你解答。
B. 用VB做一個簡單的MP3播放器怎麼做
要求挺多呀,用WindowsMediaPlayer控制項,代碼也給你貼上吧
Dim songname$, appdisk$, aa$
Private Sub Command1_Click()
Dim time As Integer
If Command6.Caption = "暫停" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString("pause " & songname, vbNullString, 0, 0)
'暫停歌曲播放
Else
WindowsMediaPlayer1.Controls.pause()
End If
Command6.Caption = "繼續"
ElseIf Command6.Caption = "繼續" Then
If WindowsMediaPlayer1.URL = "" Then
mciSendString("play " & songname & " repeat", vbNullString, 0, 0)
'歌曲循環播放，去除 & " repeat" 則取消循環
Else
WindowsMediaPlayer1.Controls.play()
End If
Command6.Caption = "暫停"
End If
End Sub
'載入歌曲
Private Sub Form_Load()
On Error Resume Next
'忽略錯誤，有錯誤的時候不顯示
WindowsMediaPlayer1.Visible = False
Command4.Enabled = False
appdisk = Trim(App.Path)
If Right(appdisk, 1) <> "\\" Then appdisk = appdisk & "\\"
aa = "system.mp3"
If InStr(aa, " ") > 0 Then
'判斷歌曲名是否有空格,有的話就去掉,並拷備為沒空格的新歌曲名(在同一路徑下)
songname = Replace(aa, " ", "")
FileCopy(appdisk & aa, appdisk & songname)
Else
songname = aa
End If
If InStr(appdisk, " ") > 0 Then
'判斷路徑是否有空格
FileCopy(appdisk & songname, Left(appdisk, 3) & songname)
'將歌曲拷到windows系統盤符下.
songname = Left(appdisk, 3) & songname
Else
songname = appdisk & songname
End If
mciSendString("play " & songname & " repeat", vbNullString, 0, 0)
'歌曲循環播放，去除 & " repeat" 則取消循環
End Sub
'關閉程序時 卸載內存中的歌曲
Private Sub Form_Unload(ByVal Cancel As Integer)
mciSendString("stop " & songname, vbNullString, 0, 0)
End Sub
C. 如何用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
D. 用vb製作簡易MP3播放器
引用wmp控制項，來拖動一個wmp控制項，源一個文本框，一個按鈕到窗口
Private Sub Command1_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub
ok了
復制網上mp3的地址或本地的mp3文件地址到文本框，點擊按鈕，就開始播放了
E. 用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下測試通過！
F. 怎樣在VB做一個簡單的音樂播放器啊
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub File1_DblClick()
Dim tmpF As String
tmpF = File1.Path
If Right(tmpF, 1) <> "\" Then tmpF = tmpF & "\"
tmpF = tmpF & File1.List(File1.ListIndex)
WMP1.URL = tmpF
WMP1.Controls.play
Label1 = tmpF
End Sub
Private Sub Form_Load()
File1.Pattern = "*.mp3;*.wav"
End Sub
G. 用VB6.0製作音樂播放器
申明:(CommonDialog控制項的來name改為cmd
把WindowsMediaPlayer的源name改成WMP)你也可以不修改...
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click(Index As Integer)
cmd.FileName = ""
cmd.DialogTitle = "請選擇您要播放的MP3格式的文件 "
cmd.Filter = "MP3|*.mp3|" Rem隨便什麼格式自己去添加就ok了
cmd.ShowOpen
If Trim(cmd.FileName) = "" Then
Exit Sub
Else
WMP.URL = Trim(cmd.FileName)
End If
End Sub
Private Sub Form_Load()
If App.PrevInstance Then
End
End If
End Sub
H. VB作業，課程設計，MP3播放器！
Option Explicit
Dim playfilename As String
Dim playposition As Double
Dim MediaPlayer1 As Boolean
Private Sub Command1_Click()
Command1.Enabled = False
MediaPlayer1.pause
playposition = MediaPlayer1.currentPosition
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command3.Enabled = True
MediaPlayer1.FileName = playfilename
MediaPlayer1.SelectionStart = playposition
MediaPlayer1.play
End Sub
Private Sub Command3_Click()
playposition = 0
Command3.Enabled = False
Command1.Enabled = False
Command2.Enabled = True
MediaPlayer1.Stop
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen
playfilename = CommonDialog1.FileName
playposition = 0
End Sub
Private Sub Command5_Click()
Unload Me
End
End Sub
I. 用VB做一個音樂播放器 控制項和代碼都要 急求🙏🙏🙏
WindowsMediaPlayer1.URL = "c:\aaa.mp3"
J. 用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