Private Sub cmdPlay_Click()
Dim oMedia As IWMPMedia3
Dim oPlaylist As IWMPPlaylist
Dim isPlay As Boolean '是否空列表,空列表不执行播放操作
isPlay = False
Me.WindowsMediaPlayer1.Close
'设置播放列表
Set oPlaylist = Me.WindowsMediaPlayer1.playlistCollection.newPlaylist("视频播放列表" & Format(Now(), "YYYY-MM-DD HH:MM:SS"))
For i = 1 To Me.ListView1.ListItems.count
If Me.ListView1.ListItems(i).Checked = True Then
isPlay = True
'设置播放媒体
Set oMedia = Me.WindowsMediaPlayer1.newMedia(Replace(Me.ListView1.ListItems(i).Text, "\", "/"))
'将媒体添加到播放列表
oPlaylist.appendItem oMedia
End If
Next
'设置播放列表
Me.WindowsMediaPlayer1.currentPlaylist = oPlaylist
Me.WindowsMediaPlayer1.settings.autoStart = True
'列表不为空则进行播放
If isPlay = True Then
Me.WindowsMediaPlayer1.Controls.play
End If
End Sub
以上VB6代码执行后,没有播放效果,谁能帮帮我。