MediaPlayer11播放列表

最新推荐文章于 2025-08-18 20:55:47 发布

zzq89120

最新推荐文章于 2025-08-18 20:55:47 发布

阅读量254

点赞数

CC 4.0 BY-SA版权

文章标签： list string

本文链接：https://blog.youkuaiyun.com/zzq89120/article/details/3396862

本文介绍了一个使用VBA编写的简易音乐播放器程序。该程序通过定义播放列表和播放指示器实现了基本的音乐播放功能，包括播放列表的初始化、下一首及上一首歌曲的切换。此外，还实现了音乐播放完毕后的自动循环播放功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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