Help como puedo apagar, cerrar un flash??

Board index FiveWin para Harbour/xHarbour Help como puedo apagar, cerrar un flash??

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Help como puedo apagar, cerrar un flash??
Posted: Wed Mar 18, 2009 05:54 AM

Hola a todos

espero se encuentren super bien

Tengo un dialogo con un flash para dar informacion del programita pero al cerrar el dialogo, a un se escucha la musica del flash

alguien tendra idea de como apagarlo

aqui esta mi codigo espero me puedan orientar

Code (fw): Select all Collapse

function aserca()

   local oDlx, oActiveX,oBrush

    DEFINE BRUSH oBrush FILE "ima\tapiz5.bmp"

   DEFINE DIALOG oDlx RESOURCE "map"  BRUSH oBrush TRANSPARENT OF oWnd

     oActiveX = TActiveX():Redefine( 100, oDlx, "ShockwaveFlash.ShockwaveFlash.9" )


   
 REDEFINE BUTTON oBtnBmp ID 2 OF oDlx ;
        ACTION (oActivex : Do("STOP"),oDlx:End())


 ACTIVATE DIALOG oDlx CENTERED ON INIT (oActivex : Do( "LoadMovie", 0, CurDrive() + ":\" + CurDir() +"\asercade.swf"))

 oActivex : end()
 oActivex : =NIL

return nil

Muchos Saluditos

Aida

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Help como puedo apagar, cerrar un flash??
Posted: Wed Mar 18, 2009 10:13 AM

Aida,

Prueba asi:

Code (fw): Select all Collapse

 REDEFINE BUTTON oBtnBmp ID 2 OF oDlx ;
        ACTION ( oActivex : Do("STOP"), oActiveX : End(), oDlx:End() )

regards, saludos

Antonio Linares
www.fivetechsoft.com

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: Help como puedo apagar, cerrar un flash??
Posted: Wed Mar 18, 2009 03:34 PM

Hola Antonio espero te encuentres muy bien :wink:

Ya hice lo que me indicaste pero sigue igual se cierra todo bien pero se sigue escuchando la musiquita del flash :shock:
esto si es todo un misterio

Muchos Saluditos

Aida :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

FiveTech Support Forums

Continue the discussion