Procedura: Ottenere larghezza e altezza da Window.Open () in un Host WebBrowser utilizzando Visual Basic .NET

Torna all'inizio

Requisiti

• Microsoft Visual Studio .NET
• Microsoft Internet Explorer 5.5 Service Pack 2 o successivo

Torna all'inizio

Creare l'esempio

1. Creare una nuova applicazione Windows in Visual Basic come segue:
   1. Avviare Visual Studio NET..
   2. Scegliere Nuovo dal menu file , quindi progetto .
   3. In Tipi progetto fare clic su Progetti di Visual Basic . In modelli , fare clic su Applicazione Windows .
2. Nella casella degli strumenti fare clic su Generale , fare clic con il pulsante destro del mouse nella casella degli strumenti e quindi scegliere Personalizza casella degli strumenti .
3. Nella scheda Componenti COM , selezionare la casella di controllo Microsoft Web Browser e quindi fare clic su OK .
4. Nella casella degli strumenti fare doppio clic su Esplora finestra.
5. Aggiungere un controllo Button e un controllo TextBox al form.
6. Fare doppio clic sul pulsante per visualizzare l'implementazione dell'evento onClick del pulsante nella finestra del codice e quindi aggiungere il codice riportato di seguito:

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

   questo codice consente di passare all'URL specificato nella casella di testo.
7. Aggiungere il seguente codice per scrivere la funzione del gestore per 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. Aggiungere il seguente codice per scrivere la funzione del gestore per 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. Aggiungere il seguente codice per scrivere la funzione del gestore per 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
   					

Torna all'inizio

Esempio di codice completo

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
				

Torna all'inizio

Verifica del funzionamento

1. Compilare l'applicazione.
2. Aprire il blocco note. Creare un nuovo file denominato test.htm e quindi aggiungere il codice riportato di seguito:

   <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. Salvare test.htm sul server Web.
4. Eseguire l'applicazione.
5. Passare alla pagina test.htm e quindi fare clic su pulsante. Si noti che il sito Web aziendale Microsoft viene aperta in una nuova istanza dell'applicazione. Il form viene ridimensionato in base alle funzionalità che passato con la chiamata a window.open .

Torna all'inizio