ЯК: Отримайте ширини та висоти з window.open() всередині через браузер хоста за допомогою Visual Basic .NET

Вимоги

У списку нижче наведено рекомендації щодо необхідного обладнання, програмного забезпечення, інфраструктури мережі і пакетів оновлень.

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 з пакетом оновлень 2 або пізнішої версії

Створення зразка

У цьому розділі описано, як розмістити керування WebBrowser у застосунку Visual Basic .NET, як поводитися з NewWindow2 подія керування WebBrowser а потім як, WindowSetWidth та WindowSetHeight події розмір вашого застосунку.

1. Створіть нову програму Windows у Visual Basic наступним чином:

   1. Запустіть Visual Studio .NET.

   2. У меню " файл " створитиі виберіть проект.

   3. У Проекті типівнатисніть кнопку " Visual Basic проектів". У розділі шаблонинатисніть кнопку " Застосунку Windows".

2. На панелі інструментів виберіть загальні, клацніть правою кнопкою миші, панелі інструментів та виберіть Елементи, настроювання.

3. На вкладці COM-компоненти установіть прапорець Microsoft веб-браузер і натисніть кнопку OK.

4. На панелі інструментів двічі клацніть у вікні провідника.

5. Додати кнопки та керування текстового поля форми.

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виклику функції.