ПРАКТИЧЕСКОЕ руководство: Получить высоту и ширину от window.open() внутри узла WebBrowser с помощью Visual Basic .NET

Требования

В приведенном ниже списке перечислены требования к оборудованию, сети, программному обеспечению и пакетам обновления.

• Microsoft Visual Studio .NET

• Пакет обновления Internet Explorer 5.5 2 или более поздней версии

Создание образца

В этом разделе описывается, как разместить элемент управления WebBrowser в приложениях Visual Basic .NET, как обрабатывать событие NewWindow2 элемента управления WebBrowser и способ обработки события WindowSetHeight и WindowSetWidth Изменение размера приложения.

1. Создайте новое приложение Windows в Visual Basic следующим образом:

   1. Запустите Visual Studio .NET.

   2. В меню файл выберите пункт Создать и выберите Проект.

   3. В области Типы проектоввыберите Проекты Visual Basic. В области Шаблонывыберите Приложение Windows.

2. В панели элементов щелкните Общие, щелкните правой кнопкой мыши в области элементов и выберите команду Настройка панели элементов.

3. На вкладке Компоненты COM установите флажок Веб-обозревателем Майкрософт и нажмите кнопку ОК.

4. В панели элементов дважды щелкните в окне обозревателя.

5. Добавьте в форму элемент управления Button и элемент управления TextBox .

6. Дважды щелкните кнопку для просмотра реализации события onClick кнопки в окне кода и добавьте следующий код:

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

   Этот код позволяет просматривать на URL-адрес, указанный в текстовом поле.

7. Добавьте следующий код для написания функции обработчика для 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. Добавьте следующий код для написания функции обработчика для 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. Добавьте следующий код для написания функции обработчика для 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

Полный пример кода

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 SubEnd Class

Убедитесь, что он работает

1. Постройте приложение.

2. Откройте программу «Блокнот». Создайте новый файл с именем Test.htm и затем добавьте следующий код:

   <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. Сохраните Test.htm на веб-сервере.

4. Запустите приложение.

5. Нажмите кнопку Обзор, чтобы страница Test.htm Обратите внимание, что корпоративный веб-узел откроется в новом экземпляре приложения. По параметрам, которые переданы при вызове window.openизменения размеров формы.