Weboldal megjelenítése saját alkalmazásban

A megoldáshoz szükségünk lesz a WebBrowser ActiveX kontrolra. Ennek eléréséhez tegyük a következőt: válasszuk a Toolbox-ot, majd jobb gombbal kattintsuk, és a megjelenő menüből válasszuk ki a Customize ToolBox menüpontot. A megjelenő ablakban a COM Components lapon a Microsoft Web Browser elemet jelöljük ki. Az ablak bezárása után megjelenik a Toolbox-ban egy Explorer nevű kontrol, melyet mostantól bármely alkalmazásunkban felhasználhatunk.

Nézzük, miként is érhetjük el, hogy megjelenjen benne egy weboldal. A mellékelt példához egy igen egyszerű HTML oldalt készítettünk 1.htm állományba, melyet most betöltünk. Ehhez a Navigate2 függvény hívására lesz szükségünk. Ennek első paraméterében adhatjuk meg annak az állománynak az elérési útvonalát, melyet szeretnénk a böngésző ablakába betölteni.

  Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
    Dim url As Object = Application.StartupPath + "\1.htm"
    axWebBrowser1.Navigate2(url, none, none, none, none)
  End Sub 'button1_Click

Amikor ez a betöltés befejeződik, akkor jön létre a NavigateCompelete2 esemény. Ezt felhasználva értesülhet alkalmazásunk erről a tényről.

  Private Sub axWebBrowser1_NavigateComplete2(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_NavigateComplete2Event) Handles axWebBrowser1.NavigateComplete2
    label1.Text = e.uRL.ToString()
  End Sub 'axWebBrowser1_NavigateComplete2