[VB+ACTIVEX] Browser interactie vanuit ActiveX

[Foxl]

Wij hebben een ActiveX object, geschreven in VB. We willen graag dat dit object na een aantal handelingen te hebben verricht, het huidige browser venster doorstuurt naar een andere pagina.

Hebben heel het internet al afgestruint, inclusief MSDN en gespecialiseerde VB forums, maar nergens een passend antwoord gevonden.

Heeft iemand enig idee hoe we dit het best aan kunnen pakken?

[Rum]

ik weet zeker dat dat in MSDN staat... Ik heb dat 4 jaar geleden op een stage gedaan en toen heb ik het ook in de MSDN gevonden. Ik kan je alleen niet verder helpen... ik zou er weer helemaal in moeten duiken want na die stage heb ik nooit meer wat met VB + ActiveX gedaan...

[Foxl]

Kun je me mischien helpen met wat termen waar ik op kan zoeken?

[henkleerssen]

eeeeuh ... wat voor handelingen precies? Formulieren in vullen..klikken wat?
eeuh webbrowser.navigate(URL)?

[Foxl]

Niet echt, ik wil geen nieuwe browser of een browser object naar een andere pagina sturen, maar de pagina waarin mijn activeX-object draait.

[martijn_brinkers]

stukje delphi code (niet zelf verzonnen, zie: http://pweb.netcom.com/~cherrman/hlink.htm ). Moet niet moeilijk zijn om om te zetten naar VB. Het idee is om een ref naar de webbrowser control te krijgen

code:

procedure THyperLinkTest.ActivateEvent(Sender: TObject);
var
  site: IOleClientSite;
  browser: IWebBrowserApp;
  sp: IServiceProvider;
  hr: HResult;
begin
  if FEvents <> nil then FEvents.OnActivate;

  // This code obtains the automation interface of the web browser
  // that the ActiveForm is embedded into, and uses it to 
  // get the current web address, LocationURL.
  if (ComObject as IOleObject).GetClientSite(site) = S_OK then
  begin
    if site <> nil then
    begin
      hr := site.QueryInterface( IServiceProvider, sp );
      hr := sp.QueryService(  IWebBrowserApp, IWebBrowserApp, browser );
      Label1.Caption := browser.LocationURL;
    end;
  end;
end;

[Foxl]

Uiteindelijk toch een oplossing gevonden die wel werkt, voor de meeschrijvers (en mezelf als ik het weer s vergeten ben) Dit werkt

UserControl.Hyperlink.NavigateTo "http://www.google.nl"