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
 

Leer las respuestas

#1 Jorge Pérez
18/04/2006 - 19:11 | Informe spam
DEFINE CLASS cntOIEAS Container <> DEFINE CLASS cntOIE AS Container

Preguntas similares