?? vb制作音樂播放器.txt
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -