播放来自特定文件夹的视频

Question

我正尝试从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 

但我不知道如何使控制播放列表中的所有内容。

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