KĀ: Platumu un augstumu saņemiet window.open() iekšpusē WebBrowser resursdatoru, izmantojot Visual Basic .NET

Prasības

Tālāk redzamajā sarakstā norādīta ieteicamā aparatūru, programmatūru, tīkla infrastruktūra un servisa pakotnes, kas jums nepieciešams:

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 2. servisa pakotne vai jaunāka versija

Izveidojiet paraugs

Šajā sadaļā ir aprakstīts, kā uzņemt WebBrowser vadība programmā Visual Basic .NET, kā rīkoties gadījumā NewWindow2 WebBrowser vadība un kā rīkoties ar WindowSetWidth un WindowSetHeight notikumus mainīt programmu.

1. Izveidojiet jaunu Windows lietojumprogrammu Visual Basic šādi:

   1. Startējiet programmu Visual Studio .NET.

   2. Izvēlnē Fails norādiet uz izveidot jaunuun pēc tam noklikšķiniet uz projektu.

   3. Noklikšķiniet uz Visual Basic projektisadaļā Projektu tipi. Sadaļā veidnesnoklikšķiniet uz Windows lietojumprogrammu.

2. Rīklodziņā noklikšķiniet uz Vispārīgi, ar peles labo pogu noklikšķiniet uz rīkjoslas un pēc tam noklikšķiniet uz Pielāgot rīkjoslas.

3. Cilnē COM komponenti , atzīmējiet izvēles rūtiņu Microsoft Web pārlūkprogrammu un pēc tam noklikšķiniet uz Labi.

4. Rīklodziņā, veiciet dubultklikšķi uz Internet Explorer logā.

5. Pievienot pogas vadīklu un tekstlodziņā kontroles veidlapas.

6. Veiciet dubultklikšķi uz pogas, lai skatītu pogas onClick notikums ieviešanu koda logā, un pēc tam pievienojiet šādu kodu:

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

   Šis kods ļauj meklēt URL norādītajā tekstlodziņā.

7. Pievienojiet šādu kodu rakstīt apstrādes funkciju 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. Pievienojiet šādu kodu rakstīt apstrādes funkciju 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. Pievienojiet šādu kodu rakstīt apstrādes funkciju 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

Visu koda paraugu

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

Pārbaudiet, vai tā darbojas

1. Veidot lietojumprogrammas.

2. Atveriet programmu Piezīmjbloks. Izveidojiet jaunu failu ar nosaukumu Test, un pēc tam pievienojiet šādu kodu:

   <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. Saglabājiet Test tīmekļa serverī.

4. Palaidiet lietojumprogrammu.

5. Atrodiet Test lapu un pēc tam noklikšķiniet uz pogas. Ievērojiet, ka jaunā lietojumprogramma tiek atvērta uzņēmuma Microsoft Web vietu. Veidlapu izmēri atbilstoši līdzekļi, kas tiek nosūtīts ar aicinājumu Window.