求助：关于网络播放

来源：互联网发布：青春校园网络剧偶像剧编辑：程序博客网时间：2024/05/22 04:34

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代码执行后，没有播放效果，谁能帮帮我。