Links im eigenem Browser-Fenster öffnen Hier erfahren Sie, wie man Links, die ein neues Fenster öffnen, im eigenen WebBrowser-Fenster anzeigen kann.
Autor:   Ralf Schoen	Bewertung:     [ Jetzt bewerten ]	Views:  6.644
ohne Homepage	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 16 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Es wurde schon des Öfteren gefragt, wie man Links, die ein neues Fenster öffnen, in einem eigenem WebBrowser-Control anzeigen kann und nicht im Standard Browser.

Öffnen Sie ein neues Projekt und platzieren auf die Form1 ein WebBrowser-Control und darunter einen CommandButton. Fügen Sie nachfolgenden Code in den Codeteil der Form1.

Option Explicit
 
Private Sub Command1_Click()
  ' Webseite im WebBrowser-Control anzeigen
  WebBrowser1.Navigate "http://www.vbarchiv.de"
End Sub

' Dieses Ereignis wird ausgelöst, wenn beim 
' Klicken auf einen Link der Inhalt der Seite in einem
' neuen Browser-Fenster angezeigt wird
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  ' Neue Instanz der aktuellen Form erstellen
  Dim frm As Form1
  Set frm = New Form1
 
  With frm
    ' als Browser registrieren
    .WebBrowser1.RegisterAsBrowser = True
 
    ' WebBrowser Object zuweisen
    Set ppDisp = .WebBrowser1.Object
 
    ' Form positionieren
    .Move 0, 0
 
    ' Form anzeigen
    .Show
  End With
End Sub

Starten Sie nun das Projekt. Nachdem die vb@rchiv-Hauptseite geladen wurde, klicken Sie in der linken Navigation auf ONLINE-SHOP. Normalerweise würde jetzt ein neues IE-Fenster geöffnet werden. In unserem Beispiel jedoch, wird eine zweite Instanz der Form1 geöffnet und die Seite im WebBrowser-Control der zweiten Form angezeigt.