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

代码：
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

播放器media player control好用点 你怎么判断播放完成的? 如果可以得到歌曲长度, 加一个interval=1000(1秒)的timer不断去得到当前播放位置是否等于歌曲长度 如果是,调用下一首播放 ========== media palyer control有个duration属性可以读取长度