Gewusst wie: Abrufen Breite und Höhe aus window.open() in einem WebBrowser-Host mithilfe von Visual Basic .NET

Zum Anfang

Voraussetzungen

• Microsoft Visual Studio .NET
• Microsoft Internet Explorer 5.5 mit Service Pack 2 oder höher

Zum Anfang

Erstellen des Beispiels

1. Erstellen Sie eine neue Windows-Anwendung in Visual Basic wie folgt:
   1. Starten Sie Visual Studio .NET.
   2. Zeigen im Menü Datei auf neu , und klicken Sie dann auf Projekt .
   3. Klicken Sie unter Projekttypen auf Visual Basic-Projekte . Klicken Sie unter Vorlagen auf Windows-Anwendung .
2. Klicken Sie in der Toolbox auf Allgemein , klicken Sie mit der rechten Maustaste auf die Toolbox und klicken Sie dann auf Toolbox anpassen .
3. Kontrollkästchen Sie auf der Registerkarte COM-Komponenten das Microsoft Webbrowser , und klicken Sie dann auf OK .
4. Doppelklicken Sie in der Toolbox in der Explorer-Fenster.
5. Fügen Sie ein Button -Steuerelement und ein TextBox -Steuerelement dem Formular hinzu.
6. Doppelklicken Sie auf die Schaltfläche, um die Implementierung von OnClick -Ereignis der Schaltfläche in das Codefenster anzuzeigen und fügen Sie den folgenden Code hinzu:

       Private Sub Button1_Click(ByVal sender As System.Object, _
           ByVal e As System.EventArgs) Handles Button1.Click
               AxWebBrowser1.Navigate(TextBox1.Text)
       End Sub
   						

   dieser Code können Sie auf den URL zu durchsuchen, die Sie in das Textfeld angeben.
7. Fügen Sie folgenden Code zum Schreiben der Handlerfunktion für NewWindow2 :

       Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, _
           ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) _
           Handles AxWebBrowser1.NewWindow2
               Dim frmWB As Form1
               frmWB = New Form1()
   
               frmWB.AxWebBrowser1.RegisterAsBrowser = True
               e.ppDisp = frmWB.AxWebBrowser1.Application
               frmWB.Visible = True
       End Sub
   					

8. Fügen Sie folgenden Code zum Schreiben der Handlerfunktion für WindowSetHeight :

       Private Sub AxWebBrowser1_WindowSetHeight(ByVal sender As Object, _
           ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetHeightEvent) _
           Handles AxWebBrowser1.WindowSetHeight
               Dim heightDiff As Integer
               heightDiff = Me.Height - Me.AxWebBrowser1.Height
               Me.Height = heightDiff + e.height
       End Sub
   					

9. Fügen Sie folgenden Code zum Schreiben der Handlerfunktion für WindowSetWidth :

       Private Sub AxWebBrowser1_WindowSetWidth(ByVal sender As Object, _
           ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetWidthEvent) _
           Handles AxWebBrowser1.WindowSetWidth
               Dim widthDiff As Integer
               widthDiff = Me.Width - Me.AxWebBrowser1.Width
               Me.Width = widthDiff + e.width
       End Sub
   					

Zum Anfang

Vollständiges Codebeispiel

Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "
    'Omitted
#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
            AxWebBrowser1.Navigate(TextBox1.Text)
    End Sub

    Private Sub AxWebBrowser1_NewWindow2(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_NewWindow2Event) _
        Handles AxWebBrowser1.NewWindow2
            'MessageBox.Show(AxWebBrowser1.Height & ":" & AxWebBrowser1.Width)

            'MessageBox.Show(doc.body.innerHTML)
            Dim frmWB As Form1
            frmWB = New Form1()

            frmWB.AxWebBrowser1.RegisterAsBrowser = True
            'frmWB.AxWebBrowser1.Navigate2("about:blank")
            e.ppDisp = frmWB.AxWebBrowser1.Application
            frmWB.Visible = True
            'MessageBox.Show(frmWB.AxWebBrowser1.Height & ":" & frmWB.AxWebBrowser1.Width)
    End Sub

    Private Sub AxWebBrowser1_WindowSetHeight(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetHeightEvent) _
        Handles AxWebBrowser1.WindowSetHeight
            'MessageBox.Show("In SetHeight" & Me.Height & ":" & e.height)
            Dim heightDiff As Integer
            heightDiff = Me.Height - Me.AxWebBrowser1.Height
            Me.Height = heightDiff + e.height
    End Sub

    Private Sub AxWebBrowser1_WindowSetWidth(ByVal sender As Object, _
        ByVal e As AxSHDocVw.DWebBrowserEvents2_WindowSetWidthEvent) _
        Handles AxWebBrowser1.WindowSetWidth
            'MessageBox.Show("In SetWidth" & Me.Width & ":" & e.width)
            Dim widthDiff As Integer
            widthDiff = Me.Width - Me.AxWebBrowser1.Width
            Me.Width = widthDiff + e.width
    End Sub

End Class
				

Zum Anfang

Funktionsprüfung

1. Erstellen Sie die Anwendung.
2. Öffnen Sie Editor. Erstellen Sie eine neue Datei mit dem Namen Test.htm, und fügen Sie folgenden Code:

   <HTML>
   <HEAD>
   <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
   <TITLE></TITLE>
   <script>
   	function openWin()
   	{
   		var win;
   		win = window.open("http://www.microsoft.com","blah","width=600, height=600");
   	}
   </script>
   </HEAD>
   <BODY>
   <button onClick=openWin()>Open Window</button>
   </BODY>
   </HTML>
   					

3. Speichern Sie Test.htm auf Ihrem Webserver.
4. Führen Sie die Anwendung aus.
5. Wechseln Sie zu der Seite Test.htm, und dann klicken. Beachten Sie, dass die Microsoft Corporate-Website in eine neue Instanz der Anwendung geöffnet wird. Größenänderung des Formulars wird entsprechend zu den Features, die mit dem Aufruf von window.open übergeben.

Zum Anfang