FoxPro/Visual FoxPro - Creando tu propio navegador

   
Vista:

Creando tu propio navegador

Publicado por Ernesto Hernandez (4632 intervenciones) el 12/10/2007 02:17:54
no te gusta el Internet explorer or Netscape crea tu propio navegador solo con algunas lineas de codigo
PUBLIC ox
ox = CreateObject("MyInternetExplorer")
ox.visible = .t.
ox.oWeb.navigate(GETENV("computername")) && insert your URL here

DEFINE CLASS MyInternetExplorer AS form
ADD OBJECT oWeb AS CWeb
caption = "My Internet Explorer"
PROCEDURE init
THISFORM.LEFT = 0
THISFORM.WIDTH = SYSMETRIC(1) * 3/4
THISFORM.height = SYSMETRIC(2)*3/4
THIS.Resize
PROCEDURE resize
This.oWeb.resize
ENDDEFINE

DEFINE CLASS CWeb AS olecontrol
oleclass = "Shell.Explorer.1"
PROCEDURE Resize
THIS.Width = THISFORM.Width - 10
THIS.Height = THISFORM.Height - 10
PROCEDURE Refresh
nodefault
ENDDEFINE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Creando tu propio navegador

Publicado por neo (1601 intervenciones) el 12/10/2007 14:46:09
Oye entonces solo faltaria la barra para escribir la pagina a la que deseo acceder, cierto??

Un Saludo Mexican

"Dia de la Raza"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Creando tu propio navegador

Publicado por Ernesto Hernandez (4632 intervenciones) el 12/10/2007 19:35:16
asi es compañero
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar