VB播放器如何自动播放下一曲

来源：百度知道编辑：UC知道时间：2024/06/15 09:43:37

代码：
Private Sub Player1_PlayStateChange(ByVal NewState As Long)
Select Case NewState
Case Is = wmppsPlaying
Me.Caption = Player1.currentMedia.Name
Me.Caption = Me.Caption & Space(1) & Player1.currentMedia.durationString
Case Is = wmppsMediaEnded
If File1.ListIndex < File1.ListCount - 1 Then
File1.ListIndex = File1.ListIndex + 1
Else
File1.ListIndex = 0
End If
Player1.URL = Dir1.Path & "\" & File1.FileName
Player1.Controls.play
End Select
End Sub

我想实现当windowsmediaplayer播放完这首歌时，自动播放文件列表框的下一首歌，为什么不自动能播放呢？必须按一下“播放”才能播放，（我已经将播放器的自动播放设置为True 了）

呵呵~，如此简单~。你在加入一个过程就可以了（媒体文件改变的一个过程MediaChange）

Private Sub Player1_MediaChange(ByVal Item As Object)
Player1.Controls.play
End Sub

为了更准确一些，在PlayStateChange过程里加入一个判断
Case Is = wmppsStopped '播放停止
Player1.URL = Dir1.Path & "\" & File1.FileName

我在做一个播放器也遇到这样的问题还没解决呢能否详细解答一下啊谢谢啦

vb如何制作播放器 vb播放器如何选歌如何启动自动播放如何自动播放光盘如何禁止自动播放 PowerPoint2007如何自动播放如何消除自动播放如何关闭自动播放？移动硬盘如何自动播放如何停止自动播放？