播放特定文件夹中的视频

【问题标题】：Play videos from a particular folder播放特定文件夹中的视频
【发布时间】：2014-12-28 01:41:27
【问题描述】：

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

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

我可以这样做：

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

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

【问题讨论】：

欢迎来到 Stack Overflow！请花点时间仔细地查看：How to Ask

标签： vb.net video windows-media-player

【解决方案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

【讨论】：