Question

我正在尝试播放Visual Basic中特定文件夹中的所有视频。我不确定我应该使用什么控件，因为WMP显示控件，我想在没有任何控件的情况下重现视频。另一个选项可能是MS TV Video Control。

我现在的主要问题是如何让控件在不停止的情况下播放文件夹中的视频而不显示播放/停止按钮。

我可以这样做：

For Each foundFile As String In My.Computer.FileSystem.GetFiles(
  My.Computer.FileSystem.SpecialDirectories.MyDocuments)
    listBox1.Items.Add(foundFile)
Next

但我不确定如何让控件播放列表中的所有内容。

Answer 1

此代码演示了如何从WMP控件中删除控件，以及如何从文件夹创建循环播放列表：

Public Class Form1

    Private Playlist As WMPLib.IWMPPlaylist

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
        AxWindowsMediaPlayer1.uiMode = "none"
        AxWindowsMediaPlayer1.settings.setMode("loop", True)
        Playlist = AxWindowsMediaPlayer1.newPlaylist("MyPlayList", "")
        AxWindowsMediaPlayer1.currentPlaylist = Playlist
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Button1.Enabled = False
            Playlist.clear()
            For Each video As String In System.IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath, "*.wmv")
                Playlist.appendItem(AxWindowsMediaPlayer1.newMedia(video))
            Next
            AxWindowsMediaPlayer1.Ctlcontrols.play()
        End If
    End Sub

End Class

播放特定文件夹中的视频

1 个答案: