Codigo para reproducir videos?

Iniciado por _CrisiS_, 18 Diciembre 2010, 00:46 AM

0 Miembros y 1 Visitante están viendo este tema.

_CrisiS_

Hola no se si alguien tendra un proyecto o codigo , o que me de las pautas ,para un proy. que haga lo siguiente:

con un openfiledialog elija la carpeta, esto lista todos los videos en un listboxt de manera vertical , al hacer doble clic en uno de ellos este reprodusca el video.

P.D> si no es molestia que sea en .NET

Keyen Night

En un proyecto WPF un control llamado MediaElement puede reproducir videos en formatos propios de Windows.
La Fé Mueve Montañas...
                                    ...De Dinero

La programación es más que un trabajo es más que un hobby es una pasión...

Shell Root

#2
Agrega los siguientes objetos:
  • TextBox1
  • Button1
  • ListBox1
  • AxWindowsMediaPlayer1

Y agrega el siguiente código:
Código (vbnet) [Seleccionar]
  Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
       Dim FolderBrowserDialog1 As New FolderBrowserDialog
       FolderBrowserDialog1.Description = "Seleccione el Directorio"
       Dim dirSelected As DialogResult = FolderBrowserDialog1.ShowDialog(Me)

       If dirSelected = DialogResult.OK Then
           TextBox1.Text = FolderBrowserDialog1.SelectedPath
       End If

       ListBox1.Items.Clear()
       Try
           Dim folders() As FileInfo = New DirectoryInfo(TextBox1.Text).GetFiles
           For Each folder As FileInfo In folders
               ListBox1.Items.Add(folder.Name)
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try
   End Sub

   Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       AxWindowsMediaPlayer1.URL = TextBox1.Text & "\" & ListBox1.SelectedItem.ToString
   End Sub


Recordad agregar la librería,
Código (vbnet) [Seleccionar]
Imports System.IO

Resultado,
Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.