实际上就是先定义一个WMP的播放列表:
Dim CurrentList As WMPLib.IWMPPlaylist = Me.AxWindowsMediaPlayer1.currentPlaylist
Dim Media As WMPLib.IWMPMedia
'这里可以使用数组循环,从而得到播放列表
Media = Me.AxWindowsMediaPlayer1.newMedia("K:/娱乐休闲/mp3/寂寞的季节.mp3")
CurrentList.appendItem(Media)
Media = Me.AxWindowsMediaPlayer1.newMedia("K:/娱乐休闲/mp3/IBelieve.mp3")
CurrentList.appendItem(Media)
重复播放
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
本文介绍如何使用VBA创建Windows Media Player(WMP)的播放列表并实现歌曲的重复播放功能。通过定义IWMPPlaylist对象来管理播放列表,并利用循环添加多个媒体文件。
1867

被折叠的 条评论
为什么被折叠?



