Objeto Explorer en _Screen

18/04/2006 - 18:50 por Jorge Luis Vejerano | Informe spam

Buenos días...En días pasados hice la pregunta pero no recibí respuesta
y decidí buscar en PortalFox que lo tiene casi todo y "boalá", me
encontré con un código para hacer lo que deseaba:Incluir el objeto
"explorer" en un formulario o _screen de vfp. Lo encontré aquí:
http://www.portalfox.com/modules.ph...le&sid 25&POSTNUKESIDR241204d78083e8dd42bf6453c172bb

Pero no funciona. El mensaje de error es: "Class Definition CNTOIE is
not found"

¿Algún buen samaritano que me pueda ayudar?

WITH _Screen
*
.AddObject('oIEScreen','cntOIE')
.oIEScreen.Visible = .T.
.oIEScreen.oIE.Navigate2( "http://search.msn.es/" )
*
ENDWITH
*
DEFINE CLASS cntOIEAS Container
*
Height = 432
Width = 602
SpecialEffect = 2
MousePointer = 5
BorderColor = RGB(192,192,192)
BackColor = RGB(255,255,255)
Name = "cntOIE"
*
ADD OBJECT oIE AS olecontrol WITH ;
Top= 0, ;
Left = 0, ;
Height = 430, ;
Width = 600, ;
Name = "oIE", ;
OleClass = "Shell.Explorer.2"
*
PROCEDURE oIE.Refresh
*
NODEFAULT
*
ENDPROC
*
PROCEDURE MouseMove
*
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*
IF nButton = 1
*
WITH THIS
*
.Width = nXCoord
.Height = nYCoord
*
ENDWITH
*
ENDIF
*
ENDPROC
*
PROCEDURE Resize
*
WITH THIS
*
.oIE.Width = .Width- 2
.oIE.Height = .Height - 2
*
ENDWITH
*
ENDPROC
*
ENDDEFINE
*
Jorge Luis Vejerano
jorge.vejerano@gmail.com

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 Jorge Pérez

18/04/2006 - 19:11 | Informe spam

DEFINE CLASS cntOIEAS Container <> DEFINE CLASS cntOIE AS Container

Responder a este mensaje

#2 msnews.microsoft.com

18/04/2006 - 19:12 | Informe spam

DEFINE CLASS cntOIEAS Container

esta mal, el falta un espacio

DEFINE CLASS cntOIE AS Container

"Jorge Luis Vejerano" escribió en el mensaje
news:

Buenos días...En días pasados hice la pregunta pero no recibí respuesta y
decidí buscar en PortalFox que lo tiene casi todo y "boalá", me encontré
con un código para hacer lo que deseaba:Incluir el objeto "explorer" en un
formulario o _screen de vfp. Lo encontré aquí:
http://www.portalfox.com/modules.ph...le&sid 25&POSTNUKESIDR241204d78083e8dd42bf6453c172bb

Pero no funciona. El mensaje de error es: "Class Definition CNTOIE is not
found"

¿Algún buen samaritano que me pueda ayudar?

WITH _Screen
*
.AddObject('oIEScreen','cntOIE')
.oIEScreen.Visible = .T.
.oIEScreen.oIE.Navigate2( "http://search.msn.es/" )
*
ENDWITH
*
DEFINE CLASS cntOIEAS Container
*
Height = 432
Width = 602
SpecialEffect = 2
MousePointer = 5
BorderColor = RGB(192,192,192)
BackColor = RGB(255,255,255)
Name = "cntOIE"
*
ADD OBJECT oIE AS olecontrol WITH ;
Top= 0, ;
Left = 0, ;
Height = 430, ;
Width = 600, ;
Name = "oIE", ;
OleClass = "Shell.Explorer.2"
*
PROCEDURE oIE.Refresh
*
NODEFAULT
*
ENDPROC
*
PROCEDURE MouseMove
*
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*
IF nButton = 1
*
WITH THIS
*
.Width = nXCoord
.Height = nYCoord
*
ENDWITH
*
ENDIF
*
ENDPROC
*
PROCEDURE Resize
*
WITH THIS
*
.oIE.Width = .Width- 2
.oIE.Height = .Height - 2
*
ENDWITH
*
ENDPROC
*
ENDDEFINE
*
Jorge Luis Vejerano

Responder a este mensaje

#3 Jorge Luis Vejerano

18/04/2006 - 20:09 | Informe spam

Definitivo.

Acabo de llenar un formulario de vacaciones y mi jefe ya lo firmó. Será
sólo una semana y trataré de disfrutarlo al máximo.
Mi pueblito allá voy!

Gracias !

Jorge Pérez escribió:

DEFINE CLASS cntOIEAS Container <> DEFINE CLASS cntOIE AS Container

Jorge Luis Vejerano

Responder a este mensaje

#4 Jorge Luis Vejerano

18/04/2006 - 20:10 | Informe spam

Definitivo.

Acabo de llenar un formulario de vacaciones y mi jefe ya lo firmó. Será
sólo una semana y trataré de disfrutarlo al máximo.
Mi pueblito allá voy! aahhh! y de paso me compro unos lentes que ya
necesito.

Gracias !

msnews.microsoft.com escribió:

DEFINE CLASS cntOIEAS Container

esta mal, el falta un espacio

DEFINE CLASS cntOIE AS Container

"Jorge Luis Vejerano" escribió en el mensaje
news:

Buenos días...En días pasados hice la pregunta pero no recibí respuesta y
decidí buscar en PortalFox que lo tiene casi todo y "boalá", me encontré
con un código para hacer lo que deseaba:Incluir el objeto "explorer" en un
formulario o _screen de vfp. Lo encontré aquí:
http://www.portalfox.com/modules.ph...le&sid 25&POSTNUKESIDR241204d78083e8dd42bf6453c172bb

Pero no funciona. El mensaje de error es: "Class Definition CNTOIE is not
found"

¿Algún buen samaritano que me pueda ayudar?

WITH _Screen
*
.AddObject('oIEScreen','cntOIE')
.oIEScreen.Visible = .T.
.oIEScreen.oIE.Navigate2( "http://search.msn.es/" )
*
ENDWITH
*
DEFINE CLASS cntOIEAS Container
*
Height = 432
Width = 602
SpecialEffect = 2
MousePointer = 5
BorderColor = RGB(192,192,192)
BackColor = RGB(255,255,255)
Name = "cntOIE"
*
ADD OBJECT oIE AS olecontrol WITH ;
Top= 0, ;
Left = 0, ;
Height = 430, ;
Width = 600, ;
Name = "oIE", ;
OleClass = "Shell.Explorer.2"
*
PROCEDURE oIE.Refresh
*
NODEFAULT
*
ENDPROC
*
PROCEDURE MouseMove
*
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*
IF nButton = 1
*
WITH THIS
*
.Width = nXCoord
.Height = nYCoord
*
ENDWITH
*
ENDIF
*
ENDPROC
*
PROCEDURE Resize
*
WITH THIS
*
.oIE.Width = .Width- 2
.oIE.Height = .Height - 2
*
ENDWITH
*
ENDPROC
*
ENDDEFINE
*
Jorge Luis Vejerano

Jorge Luis Vejerano

Responder a este mensaje

#5 Luis María Guayán

18/04/2006 - 20:20 | Informe spam

DEFINE CLASS cntOIEAS Container <> DEFINE CLASS cntOIE AS Container

Ya está corregida la línea en el artículo de PortalFox.

Gracias,

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

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida