VB中MP3播放器源码

网上VB写的大部分播放器都是调用第三方控件的,注册起来很烦索,有的控件根本无法注册,我想问问,VB有自带的MP3播放控件没?如果没有?那么可以调用XP系统中自带的播放器吗？怎么调用,或是哪位高人有VB写的播放器源码,请开源,谢谢.在线等待
我的邮箱为: lue_zhou@163.com

已经发了完整的源码程序给你,没有使用第三方控件,界面超漂亮,名称是"魅族MP3播放器(源码)",请注意查收.

我这有，170851146QQ联系

我有我发给你，代码
要添加filebox，wmp，dirbox，time，两个label，diverbox，time的interval设为500
Private Sub Command1_Click()
File1.Path = Text1.Text
End Sub

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 File1.ListCount > 0 Then
If Right(Dir1.Path, 1) <> "\" Then
Label1.Caption = Dir1.Path & "\" & File1.FileName
WindowsMediaPlayer1.URL = Label1.Caption
End If

Else
Label1.Caption = Dir1.Path & file.FileName
End If

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
Label2.Caption = "列表中共有" & File1.ListCount & "个"