Hide menu of the Internet explorer

[Silvio]

When I use this program I can see Internet explorer and I can navigate

Code: Select all  Expand view


#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

[Silvio]

Dear Antonio
can you help me for it ?

[Antonio Linares]

Silvio,

Those are features of that specific activex control. They should work as you are doing it.

Sorry we can't help you on that issue, we don't know it.

[Silvio]

Now I found a code for Vb and delphi
Someone can translate it for xharbour


http://www.planet-source-code.com/vb/sc ... C101415668 ?


http://www.planet-source-code.com/vb/sc ... FA13602032

[Silvio]

FOR the GURUS :

INTERNET EXPLORER ( EVENTS, METHOD, PROPERTIES)

http://msdn.microsoft.com/library/defau ... plorer.asp


THANKS