elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Codigo para reproducir videos?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Codigo para reproducir videos?  (Leído 4,694 veces)
_CrisiS_

Desconectado Desconectado

Mensajes: 286


Ver Perfil
Codigo para reproducir videos?
« en: 18 Diciembre 2010, 00:46 am »

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


En línea

Keyen Night


Desconectado Desconectado

Mensajes: 496


Nothing


Ver Perfil
Re: Codigo para reproducir videos?
« Respuesta #1 en: 18 Diciembre 2010, 03:45 am »

En un proyecto WPF un control llamado MediaElement puede reproducir videos en formatos propios de Windows.


En línea

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
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.724


<3


Ver Perfil WWW
Re: Codigo para reproducir videos?
« Respuesta #2 en: 18 Diciembre 2010, 20:03 pm »

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

Y agrega el siguiente código:
Código
  1.   Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
  2.        Dim FolderBrowserDialog1 As New FolderBrowserDialog
  3.        FolderBrowserDialog1.Description = "Seleccione el Directorio"
  4.        Dim dirSelected As DialogResult = FolderBrowserDialog1.ShowDialog(Me)
  5.  
  6.        If dirSelected = DialogResult.OK Then
  7.            TextBox1.Text = FolderBrowserDialog1.SelectedPath
  8.        End If
  9.  
  10.        ListBox1.Items.Clear()
  11.        Try
  12.            Dim folders() As FileInfo = New DirectoryInfo(TextBox1.Text).GetFiles
  13.            For Each folder As FileInfo In folders
  14.                ListBox1.Items.Add(folder.Name)
  15.            Next
  16.        Catch ex As Exception
  17.            MessageBox.Show(ex.Message)
  18.        End Try
  19.    End Sub
  20.  
  21.    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
  22.        AxWindowsMediaPlayer1.URL = TextBox1.Text & "\" & ListBox1.SelectedItem.ToString
  23.    End Sub

Recordad agregar la librería,
Código
  1. Imports System.IO

Resultado,
« Última modificación: 18 Diciembre 2010, 20:07 pm por Shell Root » En línea

Te vendería mi talento por poder dormir tranquilo.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines