Hide menu of the Internet explorer
Posted: Tue Aug 29, 2006 8:36 am
When I use this program I can see Internet explorer and I can navigate
I want show/hide the menu when I click the left button of mouse
I want show/hide the address menu of Internet explorer
I want show/hide toolbar and status bar of IE
Best Regards
Code: Select all
#include "FiveWin.ch"
function Main()
local oWnd, oActiveX
local cEvents := ""
DEFINE WINDOW oWnd TITLE "fivetech"
oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:Do( "GoHome" )
// oActiveX:Do( "Navigate", "http://www.fivetechsoft.com" )
oActiveX:SetProp( "StatusBar", .t. )
// MsgInfo( oActiveX:GetProp( "StatusBar" ) )
oActiveX:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }
ACTIVATE WINDOW oWnd
I want show/hide the menu when I click the left button of mouse
I want show/hide the address menu of Internet explorer
I want show/hide toolbar and status bar of IE
Best Regards