ΔΙΑΔΙΚΑΣΙΕΣ: Λήψη πλάτος και ύψος από window.open() μέσα σε έναν κεντρικό υπολογιστή WebBrowser χρησιμοποιώντας τη Visual Basic .NET

Απαιτήσεις

Η ακόλουθη λίστα περιγράφει το υλικού που συνιστώνται, λογισμικό, υποδομή δικτύου και τα service pack που χρειάζεστε:

• Microsoft Visual Studio .NET

• Microsoft Internet Explorer 5.5 Service Pack 2 ή νεότερη έκδοση

Δημιουργία του δείγματος

Αυτή η ενότητα περιγράφει τον τρόπο για τη φιλοξενία του στοιχείου ελέγχου WebBrowser σε μια εφαρμογή της Visual Basic .NET, πώς να χειριστεί το συμβάν NewWindow2 του στοιχείου ελέγχου WebBrowser και, στη συνέχεια, πώς να χειριστεί το WindowSetWidth και τα συμβάντα WindowSetHeight για να Αλλάξτε το μέγεθος της εφαρμογής σας.

1. Δημιουργία μιας νέας εφαρμογής των Windows στο Visual Basic ως εξής:

   1. Ξεκινήστε το Visual Studio .NET.

   2. Στο μενού αρχείο , επιλέξτε Δημιουργίακαι, στη συνέχεια, κάντε κλικ στο έργο.

   3. Στην περιοχή Τύπους έργων, κάντε κλικ στο κουμπί Έργα της Visual Basic. Στην περιοχή πρότυπα, κάντε κλικ στο κουμπί Εφαρμογή των Windows.

2. Στην εργαλειοθήκη, κάντε κλικ στην επιλογή Γενικά, κάντε δεξιό κλικ στην εργαλειοθήκη και, στη συνέχεια, κάντε κλικ στο κουμπί Προσαρμογή εργαλειοθήκη.

3. Στην καρτέλα Στοιχεία COM , επιλέξτε το πλαίσιο ελέγχου Microsoft Web Browser και, στη συνέχεια, κάντε κλικ στο κουμπί OK.

4. Στην εργαλειοθήκη, κάντε διπλό κλικ στο παράθυρο της Εξερεύνησης.

5. Προσθέστε ένα στοιχείο ελέγχου κουμπιού και ένα στοιχείο ελέγχου πλαισίου κειμένου στη φόρμα σας.

6. Κάντε διπλό κλικ στο κουμπί για να προβάλετε την εφαρμογή από το συμβάν onClick του κουμπιού στο παράθυρο κώδικα και, στη συνέχεια, προσθέστε τον ακόλουθο κώδικα:

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

   Αυτός ο κωδικός σας επιτρέπει να μεταβείτε στη διεύθυνση URL που καθορίζετε στο πλαίσιο κειμένου.

7. Προσθέστε τον ακόλουθο κώδικα για να γράψετε τη συνάρτηση χειρισμού για 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. Προσθέστε τον ακόλουθο κώδικα για να γράψετε τη λειτουργία του δείκτη χειρισμού για το 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. Προσθέστε τον ακόλουθο κώδικα για να γράψετε τη λειτουργία του δείκτη χειρισμού για το 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

Δείγμα κώδικα ολοκληρώθηκε

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

Βεβαιωθείτε ότι λειτουργεί

1. Δημιουργία της εφαρμογής.

2. Ανοίξτε το Σημειωματάριο (Notepad). Δημιουργήστε ένα νέο αρχείο που ονομάζεται Test.htm και, στη συνέχεια, προσθέστε τον ακόλουθο κώδικα:

   <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. Αποθήκευση Test.htm στο διακομιστή σας Web.

4. Εκτέλεση της εφαρμογής.

5. Μεταβείτε στη σελίδα "Test.htm" και, στη συνέχεια, κάντε κλικ στο κουμπί. Παρατηρήστε ότι το εταιρικό Web ανοίγει σε νέο παράθυρο της εφαρμογής. Η φόρμα αλλάζει μέγεθος ανάλογα με τις δυνατότητες που θα διαβιβάζονται με την κλήση window.open.