insertar un Flash a un form en tiempo de ejecucion

Este ejemplo te crea un formulario y un objeto OleControl que te permite
visualizar un archivo .swf.

Si ya tienes el Form, añade el control con ThisForm.AddObject()


PUBLIC oForm
oForm = NEWOBJECT("MiForm")
oForm.SHOW

DEFINE CLASS MiForm AS FORM
TOP = 0
LEFT = 0
DOCREATE = .T.
CAPTION = "Ejemplo de formulario con un archivo .SWF"
WINDOWSTATE = 0
NAME = "Form1"
WIDTH = 640
HEIGHT = 300

ADD OBJECT olecontrol1 AS OLECONTROL WITH ;
TOP = 10, ;
LEFT = 10, ;
WIDTH = 200, ;
HEIGHT = 200, ;
NAME = "Olecontrol1", ;
OLECLASS = "Shell.Explorer.2"

PROCEDURE olecontrol1.REFRESH
NODEFAULT
ENDPROC

PROCEDURE olecontrol1.INIT
*-- Apuntar al archivo .SWF que se quiera mostrar
*-- THIS.Navigate("C:\MiFlash.swf")
THIS.Navigate("http://www.bna.com.ar/promoviajes/i....swf")
ENDPROC
ENDDEFINE

Luis María Guayán
Tucumán, Argentina
________________________________
SysOp de www.PortalFox.com
Microsoft Visual FoxPro MVP
________________________________
La palabra imposible solo figura
en el diccionario de los tontos

"Elcritico" escribió en el mensaje
news:

necesito insertar (y ejecutar) un objeto flash (swf) en un form, pero en
tiempo de ejecucion, como lo hago?
Gracias !!