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