#include "fivewin.ch"
FUNCTION main()
local cUrl := "https://www.google.es/"
local cParams := "#hl=es&gs_nf=1&cp=5&gs_id=m&xhr=t&q=fivewin&pf=p&biw=1024&bih=502&sclient=psy-ab&oq=fivew&gs_l=&pbx=1&bav=on.2,or.r_gc.r_pw.r_cp.r_qf.,cf.osb&fp=531bac45c1a76a40"
NavegadorWeb( "Titulo Ventana", cUrl, cParams )
RETURN NIL
// ------------------------------------------------------------------------
// ---------------------------------------------------------------------------
FUNCTION NavegadorWeb( cTituloVentana, cServidor, cParametros )
LOCAL oDlg, oActiveX, lSave := .F.
// Evito TAB
//SetKey(VK_TAB, { || Nil })
DEFINE DIALOG oDlg RESOURCE "NAVEGADORWEB" TITLE cTituloVentana
REDEFINE ACTIVEX oActiveX ID 201 OF oDlg PROGID "Shell.Explorer"
REDEFINE BUTTON ID 101 OF oDlg ACTION( oActiveX:Do( "ExecWB", 6, 1 ) )
REDEFINE BUTTON ID 102 OF oDlg ACTION( lSave := .T., oDlg:End() )
REDEFINE BUTTON ID 103 OF oDlg ACTION( msgalert("Ayuda") )
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT oActiveX:Do( "Navigate2", cServidor + cParametros )
Return nil
// ---------------------------------------------------------------------------
NAVEGADORWEB DIALOG -1, -27, 501, 310
STYLE 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_TABSTOP
CAPTION "FOLDER"
FONT 8, "MS Sans Serif"
{
CONTROL "", 201, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 9, 6, 482, 269
PUSHBUTTON "&Imprimir", 101, 314, 284, 54, 14
PUSHBUTTON "&Salir", 102, 377, 284, 54, 14
PUSHBUTTON "&Ayuda", 103, 439, 284, 54, 14
}
por oActiveX:DooActiveX:Do
"15.0.1")
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Enrrique Vertiz and 22 guests