COMO: Obter largura e altura da window.open() dentro de um anfitrião WebBrowser utilizando o Visual Basic .NET

Voltar ao topo

Requisitos

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

Voltar ao topo

Criar o exemplo

1. Crie uma nova aplicação do Windows no Visual Basic da seguinte forma:
   1. Inicie o Visual Studio NET..
   2. No menu ficheiro , aponte para Novo e, em seguida, clique em projecto .
   3. Em Project Types , clique em Projectos do Visual Basic . Em modelos , clique em Aplicação do Windows .
2. Na caixa de ferramentas, clique em Geral , clique com o botão direito do rato na caixa de ferramentas e, em seguida, clique em Customize Toolbox .
3. No separador Componentes COM , seleccione a caixa de verificação Microsoft Web Browser e, em seguida, clique em OK .
4. Na caixa de ferramentas, faça duplo clique no Explorador de janela.
5. Adicione um controlo de botão e um controlo de caixa de texto ao formulário.
6. Faça duplo clique no botão para ver a implementação do evento AoFazerClique do botão na janela de código e adicione o seguinte código:

       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-lhe procurar o URL que especificar na caixa de texto.
7. Adicione o seguinte código para escrever a função de rotina de tratamento 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 escrever a função de rotina de tratamento 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 escrever a função de rotina de tratamento 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 ao topo

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 ao topo

Verificar se funciona

1. Compilar a aplicação.
2. Abra o bloco de notas. Crie um novo ficheiro chamado Test.htm e 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. Guarde Test.htm no seu servidor Web.
4. Execute a aplicação.
5. Navegue para a página Test.htm e, em seguida, clique no botão. Repare que o empresa ou Web site da Microsoft é aberto numa nova instância da aplicação. O formulário é redimensionado acordo com para as funcionalidades que transmitido com a chamada para window.open .

Voltar ao topo