MediaPlayer11播放列表

最新推荐文章于 2024-08-15 22:47:52 发布

zzq89120

最新推荐文章于 2024-08-15 22:47:52 发布

阅读量214

点赞数

文章标签： list string

本文链接：https://blog.csdn.net/zzq89120/article/details/3396862

版权

Option Explicit
Dim mp3List() As String '用此数组来实现播放列表
Private IndexOfList As Long '播放指示器
Private Sub buttonNext_Click() '下一首
IndexOfList = IndexOfList + 1
If IndexOfList > UBound(mp3List) Then IndexOfList = 0
PlayList
End Sub

Private Sub buttonPrevious_Click() '上一首
IndexOfList = IndexOfList - 1
If IndexOfList < 0 Then IndexOfList = UBound(mp3List)
PlayList
End Sub

Private Sub Form_Load()
ReDim mp3List(5) As String '实例化列表
mp3List(0) = "F:/Media/20049212028154.mp3"
mp3List(1) = "F:/Media/Aurora.mp3"
mp3List(2) = "F:/Media/jiangnan.mp3.mp3"
mp3List(3) = "F:/Media/littlebird.mp3"
mp3List(4) = "F:/Media/Super Star.mp3"
mp3List(5) = "F:/Media/sunyanzi_17.mp3"
IndexOfList = 0
PlayList
End Sub

Private Sub PlayList() '播放IndexOfList指示器指定的歌曲
MediaPlayer1.FileName = mp3List(IndexOfList)
End Sub

'实现自动循环播放
Private Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState As Long)
If NewState = 0 Then buttonNext_Click
End Sub