Kuidas: Saada laiuse ja kõrguse window.open() sees vaid WebBrowser Host, kasutades Visual Basic .NET

Nõuded

Järgmises loendis kirjeldatakse soovituslik riistvara, tarkvara, võrgutaristu ja hoolduspaketid, mida vajate:

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 hoolduspakett Service Pack 2 või uuem

Proovi luua

Selles jaotises kirjeldatakse, kuidas veebibrauseri juhtelementi rakenduses Visual Basic .net-i, kuidas veebibrauseri juhtelementi Hostinewwindow2 sündmuse ja WindowSetWidth ja WindowSetHeight sündmused suurust muuta oma rakendus.

1. Loo uus Windowsi rakendus Visual Basic järgmiselt:

   1. Käivitage Visual Studio .NET.

   2. Klõpsake menüü fail käsku Uusja klõpsake projekti.

   3. Klõpsake jaotises ProjektitüüpideVisual Basicu projektidele. Klõpsake jaotises MallidWindowsi rakendus.

2. Tööriistad, klõpsake üldist, paremklõpsake tööriistakasti ja klõpsake Tööriistakasti kohandada.

3. Vahekaardil COM-komponendid, märkige ruut Microsofti veebibrauseri ja seejärel klõpsake nuppu OK.

4. Tööriistad, topeltklõpsake Exploreri aknas.

5. Nupu juhtelemendi ja tekstivälja juhtelemendi lisamiseks vormi.

6. Topeltklõpsake aknas koodi nupp onClick sündmuse rakendamise vaatamiseks nuppu ja seejärel lisage järgmine kood:

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

   See kood võimaldab teil sirvida tekstiväljale teie määratud URL-i.

7. Lisage kirjutada ohjuri funktsioon Hostinewwindow2järgmine kood:

       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. Lisage kirjutada ohjuri funktsioon WindowSetHeightjärgmine kood:

       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. Lisage kirjutada ohjuri funktsiooni WindowSetWidthjärgmine kood:

       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

Täieliku koodi näidis

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

Veenduge, et see töötab

1. Järgu rakendus.

2. Avage Notepad. Looge uus fail nimega Test.htm ja seejärel lisage järgmine kood:

   <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. Salvestage Test.htm oma veebiserveris.

4. Käivitage rakendus.

5. Sirvige lehele Test.htm ja seejärel klõpsake nuppu. Pange tähele, et Microsoft ettevõtte veebisaidi avaneb rakenduse uue eksemplari. Vormi muudetakse vastavalt kõne window.openläbinud funktsioone.