Respuesta : Flash en VFP 6.0

#1 Luis María Guayán

29/09/2004 - 20:34 | Informe spam

Esto te puede servir:

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

"Sistemas" escribió en el mensaje
news:%

Buenas tardes, alguien me podria colaborar indicandome como incluir en mis
aplicaciones animaciones realizadas en Flash

Muchas gracias
Eliana
Medellin-Colombia

Responder a este mensaje

#2 Eliana

29/09/2004 - 20:53 | Informe spam

Gracias Luis.. me funciona m}perfecto...
Ahora mi pregunta es... como puedo hacerlo en tiempo de diseño... Me refiero
cuando agrego a mi formulario
un objeto OLE (por el diseñador) como lo debo crear ??? O necesariamente
debe ser por código como me lo muestras en el ejemplo ???

Gracias

"Luis María Guayán" escribió en el mensaje
news:

Esto te puede servir:

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

"Sistemas" escribió en el mensaje
news:%
> Buenas tardes, alguien me podria colaborar indicandome como incluir en

mis

> aplicaciones animaciones realizadas en Flash
>
> Muchas gracias
> Eliana
> Medellin-Colombia
>
>

Responder a este mensaje

#3 Luis María Guayán

29/09/2004 - 23:14 | Informe spam

Lo puedes hacer desde el diseñador de formularios, seleccionando el control
ActiveX "Explorador de Internet"

En la ventana de "Controles de formularios" seleccionas el objeto "Control
ActiveX (OLE Control)" y lo tiras en el formulario y seleccionas "Explorador
Web de Microsoft" de la lista "Tipo de objeto" que se te desplegará.

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

"Eliana" escribió en el mensaje
news:%

Gracias Luis.. me funciona m}perfecto...
Ahora mi pregunta es... como puedo hacerlo en tiempo de diseño... Me

refiero

cuando agrego a mi formulario
un objeto OLE (por el diseñador) como lo debo crear ??? O necesariamente
debe ser por código como me lo muestras en el ejemplo ???

Gracias

"Luis María Guayán" escribió en el mensaje
news:
> Esto te puede servir:
>
> 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
>
> "Sistemas" escribió en el mensaje
> news:%
> > Buenas tardes, alguien me podria colaborar indicandome como incluir en
mis
> > aplicaciones animaciones realizadas en Flash
> >
> > Muchas gracias
> > Eliana
> > Medellin-Colombia
> >
> >
>
>

Responder a este mensaje

#4 Eliana

29/09/2004 - 23:44 | Informe spam

Oye Luis... no tengo ese tipo de objeto... estoy trabajando con VFP 6.0...
que me hara falta???

Gracias
Eliana

"Luis María Guayán" escribió en el mensaje
news:%

Lo puedes hacer desde el diseñador de formularios, seleccionando el

control

ActiveX "Explorador de Internet"

En la ventana de "Controles de formularios" seleccionas el objeto "Control
ActiveX (OLE Control)" y lo tiras en el formulario y seleccionas

"Explorador

Web de Microsoft" de la lista "Tipo de objeto" que se te desplegará.

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

"Eliana" escribió en el mensaje
news:%
> Gracias Luis.. me funciona m}perfecto...
> Ahora mi pregunta es... como puedo hacerlo en tiempo de diseño... Me
refiero
> cuando agrego a mi formulario
> un objeto OLE (por el diseñador) como lo debo crear ??? O necesariamente
> debe ser por código como me lo muestras en el ejemplo ???
>
> Gracias
>
> "Luis María Guayán" escribió en el mensaje
> news:
> > Esto te puede servir:
> >
> > 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
> >
> > "Sistemas" escribió en el

mensaje

> > news:%
> > > Buenas tardes, alguien me podria colaborar indicandome como incluir

en

> mis
> > > aplicaciones animaciones realizadas en Flash
> > >
> > > Muchas gracias
> > > Eliana
> > > Medellin-Colombia
> > >
> > >
> >
> >
>
>

Responder a este mensaje

#5 Luis María Guayán

30/09/2004 - 03:45 | Informe spam

Si el ejemplo anterior te ha funcionado, lo tienes que tener. Buscalo en la
lista como "Explorador de Internet", "Objeto Explorador de Microsoft", etc. (no
tengo VFP6 en este equipo para poder ayudarte)

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

"Eliana" escribió en el mensaje
news:

Oye Luis... no tengo ese tipo de objeto... estoy trabajando con VFP 6.0...
que me hara falta???

Gracias
Eliana

"Luis María Guayán" escribió en el mensaje
news:%

Lo puedes hacer desde el diseñador de formularios, seleccionando el

control

ActiveX "Explorador de Internet"

En la ventana de "Controles de formularios" seleccionas el objeto "Control
ActiveX (OLE Control)" y lo tiras en el formulario y seleccionas

"Explorador

Web de Microsoft" de la lista "Tipo de objeto" que se te desplegará.

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

"Eliana" escribió en el mensaje
news:%
> Gracias Luis.. me funciona m}perfecto...
> Ahora mi pregunta es... como puedo hacerlo en tiempo de diseño... Me
refiero
> cuando agrego a mi formulario
> un objeto OLE (por el diseñador) como lo debo crear ??? O necesariamente
> debe ser por código como me lo muestras en el ejemplo ???
>
> Gracias
>
> "Luis María Guayán" escribió en el mensaje
> news:
> > Esto te puede servir:
> >
> > 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
> >
> > "Sistemas" escribió en el

mensaje

> > news:%
> > > Buenas tardes, alguien me podria colaborar indicandome como incluir

en

> mis
> > > aplicaciones animaciones realizadas en Flash
> > >
> > > Muchas gracias
> > > Eliana
> > > Medellin-Colombia
> > >
> > >
> >
> >
>
>

Responder a este mensaje

Ads by Google

Flash en VFP 6.0

Preguntas similare

Leer las respuestas