vb 制作MP3播放器 按下鼠标左键下一曲,按下鼠标右键上一曲

Question

vb 制作MP3播放器 按下鼠标左键下一曲,按下鼠标右键上一曲，最好可以自定义播放列表。每首歌播放完毕不会自动播放下一曲 急，悬赏满意再加

Answer 1

建议初学者用Windows Media Player控件实现
'Windows Media Player控件，工程——部件——Windows Media Player（勾选此项）

'添加文件
Private Sub Command1_Click()
List1.AddItem "E:\MP3\白狐.mp3"
List1.AddItem "E:\MP3\幻听.mp3"
List1.AddItem "E:\MP3\刺心.mp3"
End Sub
'顺序播放列表
Private Sub Command2_Click()
Dim i As Long
On Error Resume Next
Dim vbMedia As IWMPMedia
WindowsMediaPlayer1.currentPlaylist.Clear '清空列表
For i = 0 To List1.ListCount - 1
Set vbMedia = WindowsMediaPlayer1.newMedia(List1.List(i))
If WindowsMediaPlayer1.currentPlaylist.Count = 0 Then 'Empty
WindowsMediaPlayer1.currentMedia = vbMedia
Else 'Exist
WindowsMediaPlayer1.currentPlaylist.appendItem vbMedia
End If
Next i
Set cMedia = Nothing
End Sub
'左右键
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then WindowsMediaPlayer1.Controls.Previous '上一曲
If Button = 2 Then WindowsMediaPlayer1.Controls.Next '下一曲
End Sub