用VB6.0编写一个MP3播放器怎么编？各位高手给个代码或教程让小弟学习吧！

添加一个MMControl控件播放音乐，一个ListView控件显示播放列表，一个Slider控件显示播放进度条，其他按钮标签自己添加。 Private Sub Form_Load()
ListView1.ColumnHeaders.Add , , "名称"
ListView1.ColumnHeaders.Add , , "地址", 2500
ListView1.GridLines = True
ListView1.FullRowSelect = True
ListView1.View = lvwReport
ListView1.LabelEdit = lvwManual
ListView1.HideSelection = True
Slider1.Visible = False
End SubPrivate Sub ListView1_DblClick()
If ListView1.ListItems.Count = 0 Then Exit Sub '没有记录退出
If ListView1.SelectedItem Is Nothing Then Exit Sub '没有选中记录退出
PalyMusic ListView1.SelectedItem.SubItems(1) '调用PalyMusic过程播放音乐
End SubPrivate Sub MnuOpen_Click() ' 打开音乐文件 OpenFile.DialogTitle = "选择音乐文件"
OpenFile.FileName = ""
OpenFile.Filter = "MIDI音乐*.mid|*.mid|Wav音乐*.wav|*.wav|MP3音乐*.mp3|*.mp3" ' 设定打开文件类型
OpenFile.ShowOpen

If OpenFile.FileName = "" Then Exit Sub '如果没有选择文件名就为退出
ListView1.ListItems.Add , , OpenFile.FileTitle
ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = OpenFile.FileName
ListView1.SelectedItem = ListView1.ListItems(ListView1.ListItems.Count)

MMControl1.FileName = ""
MMControl1.DeviceType = "" '由系统默认设备类型
' '判断打开的音乐文件类型是否为MP3格式,如果MP3文件则指定多媒体设备类型为mp3audio
' MsgBox OpenFile.FilterIndex
' If OpenFile.FilterIndex = 3 Then MMControl1.DeviceType = "mp3audio"
PalyMusic OpenFile.FileName '调用PalyMusic过程播放音乐
End SubPrivate Sub MMControl1_StatusUpdate() '播放文件是发生

On Error GoTo Erropen
MMControl1.TimeFormat = 0 '设置文件长度以毫秒形式返回,
Slider1.Max = MMControl1.Length / 1000 '求得文件的最大长度
If MMControl1.Position <> MMControl1.Length Then '判断文件是否播放完毕
Slider1.Value = MMControl1.Position / 1000 '得到当前播放的位置
Else
MMControl1.Command = "Prev" '回到音乐文件的开如位置
Slider1.Value = 0 ' 当前值为0
End If
'调用ToMS函数计算剩余时间和总时间 Exit Sub
Erropen:
MsgBox "播放文件出错!", vbInformation Or vbOKOnly, "系统提示"
End Sub
Private Function ToMS(SM As Long) As String '自定义将毫秒转化为分、秒Tstring函数
Dim Ld_s As Double
Dim Ld_m As Double
Ld_s = (SM / 1000 / 60) Mod 60
Ld_m = (SM / 1000) Mod 60
ToMS = Format(Ld_s, "00") & ":" & Format(Ld_m, "00")
End FunctionPrivate Sub MMControl1_Done(NotifyCode As Integer) 'MCI 命令结束时发生。
MMControl1.UpdateInterval = 100 ' 间隔100毫秒
End SubPrivate Sub MnuClose_Click() '结束
MMControl1.Command = "Stop"
End SubPrivate Sub Paly_Click() '播放
MMControl1.Command = "Play" ' 继续播放
End SubPrivate Sub stop_Click() '暂停
MMControl1.Command = "Pause" ' 暂停播放
End SubPrivate Sub PalyMusic(FileName As String) '播放指定路径的音乐
MMControl1.Notify = False '不产生Done事件。
MMControl1.Wait = True '等到下一个 MCI 命令完成
MMControl1.Shareable = False '其它控件或应用程序不能访问这台设备
MMControl1.FileName = FileName
MMControl1.Command = "Open" ' 打开 MCI 设备。
MnuClose.Enabled = True
Slider1.Visible = True
End Sub

用MMC控件或者WMP控件，都很简单，我提供一点代码，可以进行MP3的播放，但没有循环功能，循环功能你自己加吧，其实也是很简单的。MMC控件事例：一个MMC控件名字为：MMContorl1，一个Command控件名字为Command1，一个List控件名字为List1，一个CommonDialog控件名字为CommonDialog1代码：Pribate Sub Command1_Click()'向音乐列表（List1控件）中添加音乐CommonDialog1.DialogTitle = "选择媒体文件"CommonDialog1.Filter = "所有格式"'这里为了省事不写什么MP3格式啊之类的了CommonDialog1.filename = "" '初始化控件CommonDialog1.openIf CommonDialog1.filename ="" then exit sub '如果用户没有选择媒体文件则退出过程list1.addItem CommonDialog1.FileName '把用户选择的文件目录添加到列表中end subPrivate sub list1_click() ’列表的点击事件MMControl1.FileName = list1.text '设置播放目录MMControl1.Command = "open" '播放按钮可以响应用户事件end sub Private sub list1_Dblclick()'双击列表事件with MMControl1 '开始播放.filename = list1.text.command = "close".command = "open".command = "play"end withend sub

你看看directsound