音乐播放器源代码（免费复制）

首先，需要Drive1、File1、Dir1和WindowsMediaPlayer1。

那么WindowsMediaPlayer在哪里？

1、对左侧工具栏右键，找到部件。

2、在对话框中，下拉，找到WindowsMediaPlayer，如图：

           

接下来，输入代码：

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)
    WindowsMediaPlayer1.URL = tmpF
    WindowsMediaPlayer1.Controls.play
    Label1 = tmpF
    
   
End Sub

Private Sub Form_Load()
    File1.Pattern = "*.mp4"
    
End Sub
 

备注：此代码仅支持MP4文件，如需改变，请在  File1.Pattern = "*.mp4"  中修改   "*.mp4"中的后缀名。无法拨放音频。 

亲测可用。