WinForms

Απ:Ερωτήσεις για το WebBrowser control

john — Sat, 20 Aug 2005 01:52:46 GMT

Φαίνεται να δουλεύει μια χαρά. Έκανα κάποιες αλλαγές και έγινε όπως το ήθελα. Ευχαριστώ για τη βοήθεια.
Όταν το τελειώσω (που δεν βλέπω να γίνεται σύντομα με τόσα μαθήματα) ίσως το ανεβάσω.

Καλές διακοπές σε όσους συνεχίζουν (που μάλλον είναι ελάχιστοι αλλά τέλος πάντων)!

Απ:Ερωτήσεις για το WebBrowser control

KelMan — Fri, 05 Aug 2005 20:43:02 GMT

Για δες αυτό, μια πρόχειρη λύση που μου ήρθε στο μυαλό:

Dim i As Integer

Dim browsers As New Hashtable

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

newpage()

End Sub

Sub newpage()

i = i + 1

Dim tab As New System.Windows.Forms.TabPage

tab.Name = "tab" & i.ToString

tab.Text = tab.Name

TabControl1.TabPages.Add(tab)

Dim browser As New AxSHDocVw.AxWebBrowser

browsers.Add(tab.Name, browser)

tab.Controls.Add(browsers(tab.Name))

AddHandler browser.ProgressChange, AddressOf ProgressChange

End Sub

Sub ProgressChange(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_ProgressChangeEvent)

ProgressBar1.Value = e.progress

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Dim br As AxSHDocVw.AxWebBrowser = CType(browsers(TabControl1.SelectedTab.Name), AxSHDocVw.AxWebBrowser)

br.Navigate2(TextBox1.Text)

End Sub

Το κόλπο είναι καθώς δημιουργείς δυναμικά τα browser controls πριν τα κάνεις add στο tab page να τα βάλεις σε ένα hash table.
Ως key για κάθε item που βάζεις στο hash table βάζεις το name property του νέου tab οπότε κατόπιν μπορείς μέσα από το SelectedTab.Name
να βρεις ποιό browser control βλέπει ο χρήστης.

Επίσης, άλλο ένα κόλπο είναι η δυνατότητα να συσχετίσεις δυναμικά ένα event με την ανάλογη ρουτίνα που θα καλείται, όταν τρέξει αυτό το event.

Αυτό γίνεται μέσω του AddHandler. Δυστυχώς είμαι στο τρέξιμο και δεν έχω χρόνο να συμμαζέψω τον κώδικα (πχ δεν έχω βάλει το ανάλογο RemoveHandler).

Κάνε τις δοκιμές σου και τα ξαναλέμε από Τρίτη!

Πάω για

Απ:Ερωτήσεις για το WebBrowser control

john — Fri, 05 Aug 2005 16:08:13 GMT

1. Άρη, δυστυχώς το property Name του browser είναι ReadOnly.Ακόμα κι αν δεν ήταν όμως και μπορούσα να δώσω κάτι τέτοιο:

Sub newpage()
i = i + 1
Dim tab As New System.Windows.Forms.TabPage
tab.Name = "tab" & i.ToString
tab.Text = tab.Name
TabControl1.TabPages.Add(tab)

Dim browser As New AxSHDocVw.AxWebBrowser
tab.Controls.Add(browser)
browser.Name = "browser" & i.ToString()
End Sub

τι θα έκανα με τα events του browser15 π.χ ;

Μήπως γίνεται κάτι με το property TabIndex;

2.Είχες δίκιο. Έπρεπε να το είχα προσέξει.

Απ:Ερωτήσεις για το WebBrowser control

Aris — Wed, 03 Aug 2005 04:04:32 GMT

1. Μπορείς να προσθέτεις ένα αριθμό στο όνομα του Control. Ξεκινάς με το 1 (που το κρατάς σε μία static μεταβλητή) και το δίνεις στο πρώτο control. Προσθέτεις ένα και φτιάχνεις το όνομα του επόμενου.
name = "webBrowser" + (++count).ToString();

2. Νομίζω ότι πρέπει να πιάνεις το ProgressChange event.

Άρης

Ερωτήσεις για το WebBrowser control

john — Wed, 03 Aug 2005 01:59:53 GMT

Φτιάχνω ένα shell του IE με το WebBrowser control και τα έχω βρεί λίγο σκούρα. Δύο προβλήματα:

1. Για το tabbed interface χρησιμοποιώ το TabControl. Για τη δημιουργία νέου tab φτιάχνω ένα νέο tab στο TabControl στον αέρα στο οποίο τοποθετώ ένα νέο webbrowser control. Το πρόβλημα είναι ότι μετά δεν έχω τον έλεγχο αφού όλα τα webbrowser controls έχουν το ίδιο όνομα π.χ. new_browser. Καμιά ιδέα;

2. Πώς θα συνδέσω το webbrowser control με ένα progressbar για να βλέπω την πρόοδο κατά τη φόρτωση μιας σελίδας;

Ευχαριστώ.