none
VB ¿COMO HACER CLICK SOBRE ACTIVE MOVIE CONSTRUIDO CON FilgraphManager? RRS feed

  • Pregunta

  • Mi problema es que construi un reproductor de video personalisado con Quartz.dll como referencia y no logro obtener los eventos del Mouse ni mucho menos hacer click sobre active movie window que me bota el FilgraphManager.
    Y lo que deseo es hacer click sobre los frames del video en ejecucion


    System.Runtime.InteropServices
    Imports QuartzTypeLib

     

    Imports

    Public

    Class VideoControl

     

    'Informacion de archivo
    Public FileName As String = Nothing
    'Grafg Manager 

    Dim K_objVideoWindow As IVideoWindow = Nothing
    Public K_objMediaControl As FilgraphManager = Nothing
    Public K_objMediaPosition As IMediaPosition = Nothing
    Public K_objBasicAudio As IBasicAudio = Nothing
    Public K_objBasicVideo As IBasicVideo2 = Nothing
    Public K_objMC As FilgraphManager = Nothing

    'Eventos personalisados

    Public Sub VideoRun()

    'Aqui eventos para correr video

    K_objMediaControl.Run()

    End Sub

    Public Sub VideoPause()

    K_objMediaControl.Pause()

    End Sub

    Public Sub CreateGraph()

    'Aqui Construir filtros

    K_objMediaControl =

    K_objMediaControl.RenderFile(FileName)
    K_objBasicVideo = K_objMediaControl
    K_objBasicAudio = K_objMediaControl
    K_objVideoWindow = K_objMediaControl
    K_objVideoWindow.WindowStyle =

     

     

    K_objMediaControl.Pause()

     

     

     

     

    End If
    End Sub
    End
     

    Class

    Private Sub VideoControl_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize If Not K_objMediaControl Is Nothing Then K_objVideoWindow.Width = Me.Width
    K_objVideoWindow.Height =
    Me.Height 
    Private Sub K_objVideoWindow_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick End Sub
    New FilgraphManager CInt(&HF00S)
    K_objVideoWindow.Top =
    Me.Top - Me.Top
    K_objVideoWindow.Left =
    Me.Left - Me.Left
    K_objVideoWindow.Width =
    Me.Width
    K_objVideoWindow.Height =
    Me.Height
    K_objVideoWindow.Owner =
    Me.Handle.ToInt32 End Sub

    miércoles, 27 de mayo de 2009 22:36