POSTUP: Využite šírka a výška window.open() prvku WebBrowser hostiteľa pomocou pomocou Visual Basic .NET

Požiadavky

Nasledujúci zoznam popisuje odporúčaný hardvér, softvér, sieťovej infraštruktúry a balíky service pack, ktoré potrebujete:

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 Service Pack 2 alebo novšia verzia

Vytvorenie vzorky

Táto časť popisuje ako hosť ovládaním v aplikácii Visual Basic .NET, ako používať ovládaním NewWindow2 udalosť a potom ako WindowSetWidth a WindowSetHeight udalosti veľkosť aplikácie.

1. Vytvoriť novú aplikáciu Windows Visual Basic takto:

   1. Spustiť Visual Studio .NET.

   2. V ponuke súbor ukážte na položku novéa kliknite na tlačidlo projekt.

   3. Podľa Projekt typy, kliknite na tlačidlo Projektov programu Visual Basic. Podľa šablóny, kliknite na Aplikáciu.

2. Na paneli s nástrojmi, kliknite na položku Všeobecné, kliknite pravým tlačidlom myši na paneli s nástrojmi a kliknite na tlačidlo Prispôsobiť Toolbox.

3. Na karte Súčasti COMMicrosoft webový prehliadač políčko a kliknite na tlačidlo OK.

4. Na paneli s nástrojmi, dvakrát kliknite v okne Prieskumník.

5. Pridať tlačidlo kontroly a ovládací prvok textového poľa formulára.

6. Dvakrát kliknite na tlačidlo vykonávania onClick udalosť tlačidla v okne kód a pridajte nasledujúci kód:

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

   Tento kód môžete prejsť na adresu URL, ktoré zadáte do textového poľa.

7. Pridajte nasledovný kód NewWindow2napísať funkciu obslužný program:

       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. Pridajte nasledovný kód napísať funkciu obslužný program 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. Pridajte nasledovný kód napísať funkciu obslužný program 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

Kompletný kód vzorky

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

Skontrolujte, či pracuje

1. Zostavte aplikáciu.

2. Otvorte program Poznámkový blok. Vytvorte nový súbor s názvom Test.htm, a potom pridajte nasledujúci kód:

   <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. Uložte Test.htm na webovom serveri.

4. Spustenie aplikácie.

5. Prejdite na stránku Test.htm, a potom kliknite na tlačidlo. Upozornenie, že podnikovej webovej lokality sa otvorí v novej inštancii aplikácie. Formulár je veľkosť podľa funkcie, ktorý sa odovzdáva s výzvou na window.open.