COMO: Obter largura e altura de Window.Open () dentro de um Host WebBrowser usando o Visual Basic .NET

Voltar para o início

Requisitos

• Microsoft Visual Studio .NET
• Microsoft Internet Explorer 5.5 Service Pack 2 ou posterior

Voltar para o início

Criar o exemplo

1. Crie um novo aplicativo do Windows no Visual Basic da seguinte maneira:
   1. Inicie o Visual Studio NET..
   2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
   3. Em Project Types , clique em Projetos do Visual Basic . Em modelos , clique em Windows Application .
2. Na caixa de ferramentas, clique em Geral , clique com o botão direito do mouse na caixa de ferramentas e, em seguida, clique em Customize Toolbox .
3. Na guia Componentes COM , marque a caixa de seleção Microsoft Web Browser e, em seguida, clique em OK .
4. Na caixa de ferramentas, clique duas vezes no Gerenciador de janela.
5. Adicione um controle Button e um controle TextBox ao formulário.
6. Clique duas vezes no botão para exibir a implementação do evento onClick do botão na janela de código e em seguida, adicione o código a seguir:

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

   este código permite que você navegue até a URL que você especificar na caixa de texto.
7. Adicione o seguinte código para gravar a função de manipulador para 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. Adicione o seguinte código para gravar a função de manipulador para 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. Adicione o seguinte código para gravar a função de manipulador para 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
   					

Voltar para o início

Exemplo de código concluída

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
				

Voltar para o início

Verificar se ele funciona

1. Crie o aplicativo.
2. Abra o bloco de notas. Criar um novo arquivo chamado Test.htm e, em seguida, adicione o seguinte código:

   <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. Salve Test.htm em seu servidor Web.
4. Execute o aplicativo.
5. Navegue até a página Test.htm e, em seguida, clique no botão. Observe que o site do Microsoft corporativa é aberto em uma nova instância do aplicativo. O formulário é redimensionado acordo com para os recursos que você passou com a chamada para window.open .

Voltar para o início