窗体上建立一个FileListBox 一个WindowsMediaPlayer 和 一个 Timer控件在复制以下代码运行即可
歌曲数量 As Long
Dim 歌曲文件夹路径 As String
Dim 当前播放 As Long
Private Sub Form_Load()
歌曲文件夹路径 = "C:\Users\hu\Desktop" '歌曲文件夹目录
File1 = 歌曲文件夹路径
File1.Pattern = "*.mp3" '文件过滤器
File1.Visible = False
歌曲数量 = File1.ListCount
If 歌曲数量 = 0 Then
MsgBox "未发现可以播放的音频文件!", vbExclamation, ""
End
Else
WindowsMediaPlayer1.URL = 歌曲文件夹路径 & "\" & File1.List(当前播放)
当前播放 = 当前播放 + 1
Timer1.Interval = 1
Timer1.Enabled = True
End If
End Sub
Private Sub Timer1_Timer()
If WindowsMediaPlayer1.playState = wmppsStopped Then
If 当前播放 = 歌曲数量 - 1 Then
当前播放 = 0
WindowsMediaPlayer1.URL = 歌曲文件夹路径 & "\" & File1.List(当前播放)
Else
当前播放 = 当前播放 + 1
WindowsMediaPlayer1.URL = 歌曲文件夹路径 & "\" & File1.List(当前播放)
End If
Else
End If
End Sub
追问代码打在哪里啊。。
知道了我没看清
当前播放是什么啊也没定义。