elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 04:38  


Tema destacado: Únete al Grupo Steam elhacker.NET

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderador: [D4N93R])
| | | |-+  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 1,817 veces)
_CrisiS_

Desconectado Desconectado

Mensajes: 226


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

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: 315


Nothing


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

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

[Aporte] Factorización Relativamente Rápida
Shell Root


Desconectado Desconectado

Mensajes: 2.456


Alex Jurado


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

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

Y agrega el siguiente código:
Código
   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
Imports System.IO

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

---
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
formato para reproducir videos en un aparato de dvd
Multimedia
lauris313 2 3,926 Último mensaje 23 Mayo 2008, 22:49
por lauris313
alguien sabe de un player de flv para reproducir videos de youtube en la web
Desarrollo Web
nabelcc 2 496 Último mensaje 13 Agosto 2008, 02:58
por 10--
tearing al reproducir videos
GNU/Linux
Ineluki 0 287 Último mensaje 15 Marzo 2009, 13:22
por Ineluki
Reproducir videos en dispositivos MP4
Multimedia
Sharkast 1 1,620 Último mensaje 11 Enero 2010, 11:31
por Festor
Google Docs incluirá soporte para reproducir vídeos
Noticias
wolfbcn 0 524 Último mensaje 8 Enero 2011, 18:10
por wolfbcn
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines