vb制作音乐播放器.txt

来自「功能好,能添加歌曲。但不能自己播放下一曲」· 文本 代码 · 共 30 行

Dim ab As String
Private Sub Command1_Click()
Dim song As String
With CommonDialog1
.FontName = ""
.Filter = "*.mp3|*mp3;*.wma|*.wma"
.ShowOpen
song = .FileName
End With
If song = "" Then Exit Sub
a = ""
For i = Len(song) To 1 Step -1
b = Mid(song, i, 1)
If b = "" Then
List1.AddItem a
a = ""
ElseIf b = "\" Then
List1.AddItem a
ab = Left(song, i)
Exit Sub
Else
a = b & a
End If
Next i
End Sub

Private Sub List1_DblClick()
Form1.Caption = "依梦恋播放器 & 播放列表" + ab & List1.Text
WindowsMediaPlayer1.URL = ab & List1.Text
End Sub