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.240 |
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.