Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Como Explorer
Message
 
To
16/07/2004 16:23:18
General information
Forum:
Visual FoxPro
Category:
Internet applications
Title:
Miscellaneous
Thread ID:
00925337
Message ID:
00925374
Views:
14
César:
Tenes que usar el control del InternetExplorer en un Formulario que seria de Nivel Superior.
Supongamos que al control lo llamas: oWeb.
Armas una página HTML que tenga el contenido que vos quieras, por ejemplo un menu:
Los links del menu los defines con la siguiente sintaxis:
<a href="miapp:Thisform.ExecuteMenu(1)">Opción 1</a>
En Tu formulario, agregas un método llamado ExecuteMenu y dentro escribis:
LParameters tnMenu
MessageBox( "Has pinchado en la Opción " + Transform(tnMenu), 64, Thisform.Caption )
Luego en el Evento BeforeNavigate del control explorer escribis:
*** OLE Control Event ***
LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel
Local lcCmd
If Left( m.Url, 6 ) == "miapp:"
   m.Cancel = .T.
   lcCmd = SubStr( m.Url, 7 )
   &lcCmd
EndIf
Suponiendo que la página que hiciste se llama: MainMenu.htm, y está en el mismo folder que el formulario, en el Init del Formulario pones:
This.oWeb.Navigate( "MainMenu.htm" )
OK....
Esto es muuuuy básico....
Tienes que trabajar mucho para obtener una APP 100% con interfase Explorer, pero es posible.
Dos cosas a tener en cuenta son: Sys(2333) y _VFP.AutoYield

Bueno, espero que te haya orientado en lo que queres hacer.
Saludos.
Lic. Esteban Bruno
Gerente de Sistemas
TASSO S.R.L.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform