Minor Media Player Issue

[mholmes_3038]

Im making a custom Web Browser and the media player works just fone only one issue Ive found is I can use my mouse to select multi music files to add them to the list.

Public Class Form2

    Private Sub AddToPlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToPlaylistToolStripMenuItem.Click
        OpenFileDialog1.ShowDialog()
        AxWindowsMediaPlayer1.URL = OpenFileDialog1.FileName
    End Sub
End Class

I man its a ver basic addon for the browser right now. I just need to be able to add more then one music file to the media player at one time witht he mouse or at lest allow me to hold down ALT and select more then one file. Im sure i made just a simple mistake here.

[.paul.]

the openfiledialog has a multiSelect property, + the windowsMediaPlayer has playlists, so you can select more than 1 movie + add them to the current playlist + they'll be played in the order they were added:

Public Class Form2
 
    Private Sub AddToPlaylistToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddToPlaylistToolStripMenuItem.Click
        'declare new OpenFileDialog + set it's initial properties
        Dim ofd As New OpenFileDialog With { _
        .Title = "Select video files", _
        .Filter = "AVI (*.avi)|*.avi|MPG (*.mpg)|*.mpg|WMV (*.wmv)|*.wmv|All Files (*.*)|*.*", _
        .FilterIndex = 0, _
        .InitialDirectory = IO.Path.Combine(IO.Directory.GetParent(Environment.GetFolderPath(Environment.SpecialFolder.Desktop)).FullName, "Videos"), _
        .Multiselect = True}
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            For Each filename As String In ofd.FileNames
                Dim movie As WMPLib.IWMPMedia = AxWindowsMediaPlayer1.newMedia(filename)
                AxWindowsMediaPlayer1.currentPlaylist.appendItem(movie)
            Next
        End If
    End Sub
End Class

[mholmes_3038]

Resolved thnk you.