vb@rchiv · Tipps & Tricks · Popup in eigenem Fenster öffnen

Rubrik: HTML/Internet/Netzwerk · WebBrowser | VB-Versionen: VB4, VB5, VB6

11.05.04

Popup in eigenem Fenster öffnen Im folgendem Tipp lernen Sie, wie Sie ein Popup, das aus dem Webbrowser Control erzeugt wurde, in ein eigenes Fenster laden können.
Autor: hehemande	Bewertung:	Views: 16.228
www.softwareentwicklung-michael-mueller.de	System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Im folgendem Tipp lernen Sie, wie Sie ein Popup, das aus dem Webbrowser Control erzeugt wurde, in ein eigenes Fenster laden können.

Hierzu benötigen Sie zusätzlich zu Ihrem Hauptformular eine weitere Form, die Sie frmPopup nennen. Darauf platzieren Sie nun ein Webbrowser-Control.

Nun fügen Sie bitte folgenden Formularcode hinzu:

Private Sub Form_Resize()
  If Me.WindowState <> vbMinimized Then
    ' sorgt dafür, dass sich das Webbrowser Control 
    ' später an die Größe des Fensters anpasst
    WebBrowser1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
  End If
End Sub

Private Sub WebBrowser1_DocumentComplete( _
  ByVal pDisp As Object, URL As Variant)
 
  ' Zeigt den Titel der aktuellen Website 
  ' in der Titelleiste an
  Me.Caption = WebBrowser1.LocationName
End Sub

Nachdem dies vollbracht ist, nun zum Hauptdokument.
Um das Webbrowse-Conmtrol mit dem Popup-Formular zu verknüpfen, wurde folgender, hierfür modifizierter Code aus der der vb@rchiv Tipps & Tricks Rubrik verwendet, den Sie bitte in das Hauptformular einfügen:

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
  ' Neue Instanz der Popup-Form erstellen
  Dim oForm As frmPopup
  Set oForm = New frmPopup
 
  With oForm
    ' 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

Das fertige Projekt kann auch gut als Popup-Blocker eingesetzt werden.