Kako da: Se širina i visina od window.open() unutra je WebBrowser domaćina od strane koristeći Visual Basic .NET

Zahtevi

Sledeća lista opisuje preporučene hardver, softver, mrežne infrastrukture i servisni paketi koje su vam potrebne:

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 servisni paket 2 ili noviji

Kreiranje uzorka

Ovaj odeljak opisuje kako da bude domaćin WebBrowser kontrole u aplikaciji Visual Basic .NET, kako postupati sa NewWindow2 događaj WebBrowser kontrole i onda kako postupati sa WindowSetWidth i WindowSetHeight manifestacija veličinu tvoju prijavu.

1. Kreiranje nove Windows aplikacije u programu Visual Basic, na sledeći način:

   1. Pokretanje Visual Studio .NET.

   2. U meniju datoteka postavite pokazivač na nju, a zatim izaberite stavku projekat.

   3. U okviru Tipovi projekataizaberite stavku Visual Basic projekti. Pod Predlošci, kliknite na Windows aplikacije.

2. U okviru sa alatkama, izaberite karticu Opšte postavke, kliknite desnim tasterom miša u okviru sa alatkama i zatim kliknite na dugme Prilagodi za alat.

3. Na kartici COM komponente , potvrdite okvir Microsoft Web pregledač , a onda kliknite na OK.

4. U okviru sa alatkama, dvaput kliknite na ikonu u prozoru programa Explorer.

5. Dodajte kontrolu dugmeta i kontrole okvira za tekst u obrazac.

6. Dvaput kliknite na dugme da biste implementaciju onClick događaj od dugmeta u prozoru koda, a zatim dodajte sledeći kod:

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

   Ova šifra vam omogućava da pregledate da URL adresu koju ste naveli u okviru za tekst.

7. Dodajte sledeći kôd za pisanje handler funkcija za 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. Dodajte sledeći kôd za pisanje handler funkcija za 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. Dodajte sledeći kôd za pisanje handler funkcija za 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

Dovršite uzorak koda

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

Proverite da li to funkcioniše

1. Napravi aplikaciju.

2. Otvorite Notepad. Kreirajte novu datoteku sa imenom Test.htm, a zatim dodajte sledeći kod:

   <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. Sačuvaj Test.htm na vašem Web serveru.

4. Pokreni aplikaciju.

5. Pronađite Test.htm stranicu, a zatim kliknite na dugme. Obratite pažnju da je korporativna Web lokacije Microsoft otvara u novoj instanci aplikacije. Obrazac se menja veličina prema funkcija koje si prošao sa poziv na window.open.