:o Perfecto, y para resumir mas el cambio no fue necesario utilizar el adjunto que colocaste sino solamente cambiar la apariencia del Formulario principal (Appearence = 0 - Flat) y listo todo resulto como resultaba a la fecha pero en pantalla completa.

Gracias por la "chapuza"...  ;)

Gracias, lo vere en estos dias y lo comentare  :)...

Hola  :):
Desde hace un par de semanas atras que estoy probando esta gran libreria y me parece bastante interesante, hasta el momento he tropezado con varios problemas que mediante practica y viendo la documentacion pude subsanar, hasta que no se me ocurre nada en este  ???.

Resulta que quisiera mezclar tanto video como imagenes en la pantalla y lo logre:



En la imagen pueden ver que arriba a la izquierda el video se reproduce correctamente, abajo a la izquierda cambio el texto según la posición actual del video que se reproduce y en el medio el tutorial 4 funciona a la perfección rotando y desvaneciendose.

Ahora el problema se da cuando quiero que la ejecución sea en pantalla completa, cuando lo configuro de la siguiente manera:

Código [Seleccionar] Expand


Call m_Input.Init(Me.hWnd)
Call m_gfx.Init(me.hWnd, 800, 600, 16, false, False, False, 0)
Call m_Video.Init(me.hWnd)


Lo único que se muestra en pantalla es el tutorial 4 con las cuadros rotando, de fondo se escucha la musica del video pero este no se ve por ninguna parte.
Ya que constantemente estoy repintando la pantalla para mostrar a los cuadros y reescribiendo el texto me da la impresión que tambien repinto por encima del lugar donde esta el video por lo tanto este desaparece (aunque si se lo escucha), pero si esto pasa en pantalla completa porque no en ventana?, pues ni idea la diferencia debe ser grande para que suceda en un lado y en otro no.

A la fecha intente varias cosas como darle al video otro hWnd pero lo unico que resulta es: no pintar la pantalla principal con este codigo:

Código [Seleccionar] Expand


Call m_gfx.DRAW_Map(Backg, 0, 0, 150, m_gfx.Screen.Width, m_gfx.Screen.Height)
Call m_gfx.DRAW_MapEx(Sprite, 128, 240, 150, 128, 128, Angle, Blendop_Color, m_gfx.ARGB_Set(Alpha, 255, 255, 255), Mirror_None, Filter_Bilinear, True)
Call m_gfx.DRAW_MapEx(Sprite, 256 + 64, 240, 150, 128, 128, Angle, Blendop_Aditive, &HFFFFFFFF, Mirror_None, Filter_Bilinear, True)
Call m_gfx.DRAW_MapEx(Sprite, 384 + 128, 240, 150, 128, 128, Angle, Blendop_Sustrative, &HFFFFFFFF, Mirror_None, Filter_Bilinear, True)
Call m_gfx.DRAW_Text(Impact, m_Video.VIDEO_GetCurrentPosition & " - " & m_Video.VIDEO_GetDuration, 50, m_gfx.Screen.Height - 50, 0, &HFFFF7700, Align_Left)
Call m_gfx.DRAW_Text(Impact, "Repetición.- " & CStr(Replay), m_gfx.Screen.Width - 350, 10, 150, &HFFFF7700, Align_Left)
Call m_gfx.DRAW_Text(Impact, "Video.- " & CStr(Video), m_gfx.Screen.Width - 350, 50, 150, &HFFFF7700, Align_Left)
Call m_gfx.Frame(0, 60)

De tal forma que solo se ejecute el codigo de ejecución del video que es asi, de rato en rato pregunto si se esta ejecutando el video si este ya termino pues pasa al siguiente:

Código [Seleccionar] Expand

  With m_Video
     
            If .VIDEO_GetCurrentPosition = .VIDEO_GetDuration Then
                  'para controlar la cantidad de videos que se reprodujeron
                   If Video < UBound(LvStrF) Then
                      Video = Video + 1
                 Else
                      Video = 1
                     'REPETICION #
                      Replay = Replay + 1
               End If
               
                     If .VIDEO_IsPlaying Then Call .VIDEO_Stop
                        .VIDEO_Unload (VideoID)
             'siguiente video
              VideoID = .VIDEO_Load(pPath & "\" & LvStrF(Video))
                   Call .VIDEO_Play(VideoID, 0, 0, 320, 240)
                   Call .VIDEO_SetVolume(30)
               
        End If
 
End With

Me quede sin ideas  :-\ asi que agradeceria 1 mano en esta cuestion, de preferencia un pequeño ejemplo que mezcle ambos video e imagenes que se repinten todo en pantalla completa.

Gracias de antemano  ;)

Atte AuGuS