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:	Views:  24.826
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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.
 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.