用mediaplayer控件开发的mp3播放器不能够自动播放?
我用windowsmediaplay些写了一个mp3播放器,是用windowsMediaplay10版本开发的,其中: 播放文件的代码:
Private Sub MenuSubFile_Click()
'打开文件并播放,同时清除播放列表里的文件名并在列表里加入打开的文件
CommonDialog1.Filter = "mp3音乐文件 ?*.mp3"
CommonDialog1.ShowOpen
mp3FileName = CommonDialog1.FileName
MediaPlayer.settings.autoStart = True
MediaPlayer.URL = mp3FileName
List1.Clear
List1.AddItem mp3FileName
End Sub
往列表里加入文件的代码:
Private Sub MenuSubAdd_Click()
'在播放列表里添加文件
CommonDialog1.Filter = "mp3音乐文件 ?*.mp3"
CommonDialog1.ShowOpen
mp3FileName = CommonDialog1.FileName
List1.AddItem mp3FileName
End Sub
连续播放列表文件的代码:
dim playfilename as integer
Private Sub MediaPlayer_PlayStateChange(ByVal NewState As Long)
'按播放列表的顺序自动播放
PlayFileNumber = List1.ListIndex
If MediaPlayer.playState = wmppsMediaEnded Then
If List1.ListIndex < List1.ListCount - 1 Then
PlayFileNumber = PlayFileNumber + 1
List1.Selected(PlayFileNumber) = True
MediaPlayer.settings.autoStart = True
MediaPlayer.URL = List1.List(List1.ListIndex)
Else
List1.ListIndex = 0
MediaPlayer.URL = List1.List(List1.ListIndex)
End If
End If
End Sub
文件就是不能自动播放,必须按一下播放按钮才能够播放,我明明是设置了自动播放啊,不知如何连续自动播放,请指教?谢谢高手