KAIP: Gauti plotį ir aukštį iš window.open() viduje po WebBrowser pagrindinio kompiuterio, naudojant Visual Basic .NET

Reikalavimai

Šiame sąraše pateikiama rekomenduojama aparatūra, programinė įranga, tinklo infrastruktūra ir pakeitimų paketai, kurių jums reikia:

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 2 arba naujesnis pakeitimų paketas

Sukurkite mėginio

Šiame skyriuje aprašoma, kaip Visual Basic .NET programos WebBrowser valdiklio pagrindinio kompiuterio, kaip elgtis Įnewwindow2 įvykio WebBrowser valdiklio, ir tada kaip elgtis WindowSetWidth ir WindowSetHeight įvykius keisti savo programą.

1. Sukurkite naują "Windows" programos Visual Basic taip:

   1. Paleiskite programą Visual Studio .NET.

   2. Meniu failas , perkelkite pelės žymiklį ant naujas, ir spustelėkite projekto.

   3. Pagal Projekto tipai, spustelėkite Visual Basic projektų. Pagal Šablonai, spustelėkite "Windows" programoje.

2. Įrankių komplektas, spustelėkite Bendra, dešiniuoju pelės mygtuku spustelėkite įrankių juosta ir tada spustelėkite Tinkinti įrankių juostoje.

3. Skirtuką COM komponentai , "Microsoft" žiniatinklio naršyklės žymės langelį ir spustelėkite gerai.

4. Įrankių komplektas, du kartus spustelėkite "Internet Explorer" langą.

5. Pridėti mygtuko valdiklį ir teksto lauko valdiklį į savo formą.

6. Du kartus spustelėkite mygtuką norėdami peržiūrėti mygtuko onClick įvykių įgyvendinant kodų langas, ir pridėkite šį kodą:

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

   Šis kodas suteikia galimybę naršyti, o teksto lauke URL.

7. Įdėkite šį kodą rašyti Įnewwindow2apdorojimo programos funkcijos:

       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. Įdėkite šį kodą rašyti apdorojimo programos funkcijos 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. Įdėkite šį kodą rašyti WindowSetWidthapdorojimo programos funkcijos:

       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

Pilnas kodo pavyzdys

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

Patikrinkite, ar veikia

1. Kurti taikomąją programą.

2. Atidarykite užrašinę. Sukurkite naują failą, pavadintą Test.htm, ir tada pridėkite šį 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. Įrašyti Test.htm žiniatinklio serveryje.

4. Paleiskite taikomąją programą.

5. Naršykite į Test.htm puslapį ir spustelėkite mygtuką. Atkreipkite dėmesį, kad įmonės "Microsoft" žiniatinklio svetainėje atidaro naują egzempliorių programos. Formos dydis pagal funkcijas, kad jums paskambinti į window.open.