Ejemplo con videos

[Fixman]

Estoy teniendo unos problemas para agregar videos a mi aplicacion. Alguien me podria dar un script que funcione usando dx_lib32 para agregar un video?

[[EX3]]

Leete este tema, en el encontraras dos ejemplos para descargar:
como reproducir video?

Salu2...

[Fixman]

excelente, muchas gracias

m...en realidad tengo el problema de que no tengo instalado el VB6 sino el VB 2005, que no es compatible con este codigo. Podrias pegar el codigo del primer tutorial aca por favor?

[Fixman]

m...en realidad tengo el problema de que no tengo instalado el VB6 sino el VB 2005, que no es compatible con este codigo. Podrias pegar el codigo del primer tutorial aca por favor?

[Fixman]

Ya lo pude arreglar, pero como sugerencia te daria que haya ejemplos en la pagina que funcionen para verisiones de .Net de VB

[[EX3]]

Lo tendre en cuenta para la proxima release, aunque portar el codigo de los tutoriales no es muy complicado ya que hay que realizar modificaciones minimas, el codigo es casi identico al de Visual Basic 6.0.

Aqui tienes el tutorial 1 portado a Visual Basic .NET:

Código [Seleccionar] Expand

Public Class Form1

   Dim m_Video As dx_lib32.dx_Video_Class      ' Objeto que accede a la clase de video.
   Dim VideoID As Integer                      ' Identificador del video.

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       ' Creamos el objeto que apunta a la clase dx_Video:
       m_Video = New dx_lib32.dx_Video_Class

       ' Inicializamos la clase de video pasando como parametro el idenficador
       ' del formulario que sera donde dibujaremos los fotogramas de la
       ' secuencia de video:
       m_Video.Init(CType(Me.Handle, Integer))

       ' Cargamos una secuencia de video:
       VideoID = m_Video.VIDEO_Load(Application.StartupPath & "\clock.avi")

       ' Comenzamos a reproducir la secuencia de video a una escala de 256x256
       ' en la posicion x0 y0:
       m_Video.VIDEO_Play(VideoID, 0, 0, 256, 256)

   End Sub

   Private Sub Form1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
       ' Cerramos las clases de video:
       m_Video.Terminate()

       ' Destruimos el objeto:
       m_Video = Nothing

       ' Terminamos la ejecucion del programa:
       Application.Exit()
   End Sub
End Class
Salu2...