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

那么WindowsMediaPlayer在哪里？

1、對左側(cè)工具欄右鍵，找到部件。

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″中的后綴名。無法撥放音頻。

親測可用。

總結(jié)

以上是生活随笔為你收集整理的音乐播放器源代码（免费复制）「建议收藏」(哔哩哔哩音乐)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。