obj windows principal = ownd
DEFINE WINDOW oWndnet TITLE ".::"+alltrim(sis_1nom)+"::. "+alltrim(sis_1web)
oActiveX = TActiveX():New( oWndnet, "Shell.Explorer" )
oWndnet:oClient = oActiveX
IF EMPTY(sis_1web)
oActiveX:Do( "GoHome" )
else
oActiveX:Do( "Navigate", alltrim(sis_1web) )
endif
oActiveX:SetProp( "StatusBar", .t. )
ACTIVATE WINDOW oWndnet
tentei assim:
*******************
FUNCTION NETWND()
*******************
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX
oActiveX:Do( "GoHome" )
oActiveX:SetProp( "StatusBar", .t. )
return(.t.)
Porém, desse jeito a WINDOWS principal apresenta o navegador em um canto do video, não fica na tela inteira!
Aokisantos
