Tabbed webbrowser vb.net

Bonjours, j'ai crée un petit tabbed webbrowser et je voulais savoir comment mettre le nom de la tab , au nom du webbrowser.documenttitle.

Merci , voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Dim i As Integer = 1       Dim Browse As New WebBrowser TabControl1.TabPages.Add(1, "Page" & i) TabControl1.SelectTab(1 - 1) Browse.Name = "wb" Browse.Dock = DockStyle.Fill TabControl1.SelectedTab.Controls.Add(Browse) i = i + 1     TabControl1.TabPages.RemoveAt(TabControl1.SelectedIndex) TabControl1.SelectTab(TabControl1.TabPages.Count - 1) i = i - 1   CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()       CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward() CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop() CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()

---

Code:

---

TabControl1.SelectedTab.Text = Browse.DocumentTitle

---

Par contre il vaudrait mieux le faire dans l'évènement DocumentCompleted du WebBrowser, sinon le document n'est pas encore chargé...

Citation:

---

Envoyé par icekev

Code:

---

1 2 3 4 5 6 7

CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()       CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward() CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop() CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()

---

---

pourquoi toutes ces pirouettes ? :koi:
tu as déjà une référence vers le WebBrowser (la variable Browse), tu peux l'utiliser directement...

J'ai essayer d'implenter ton code mais avec aucun résultat, quand j'ajoute des tabs, rien n'arrive. je navige, il ne se passe rien de plus.

pourtant j'ai mis ton code dans ces endoit suivant:

Code:

---

1 2 3 4 5 6 7

Private Sub browse_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Dim browse As New WebBrowser   TabControl1.SelectedTab.Text = browse.DocumentTitle End Sub

---

J'ai aussi essayer de cette façon:

Code:

---

1 2 3 4 5 6 7

Private Sub webbrowser_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Dim browse As New WebBrowser   TabControl1.SelectedTab.Text = browse.DocumentTitle End Sub

---

et j'ai mis le code dans cette endroit aussi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim Browse As New WebBrowser   TabControl1.TabPages.Add("Nouvelle page") TabControl1.SelectTab(a)   Browse.Name = "wb" Browse.Dock = DockStyle.Fill TabControl1.SelectedTab.Text = Browse.DocumentTitle TabControl1.SelectedTab.Controls.Add(Browse)

---

a propos de mes variable ( a et i ) oublier les, tous fonctionne correctement ces le " nom de mes tabs " qui ne fonctionne pas.

Alors après ce tous , jai essayer d'autre code d'on:

Code:

---

1 2 3 4 5 6

Private Sub (browse ou webbrowser les deux sont essayer)_Navigated(ByVal sender As Object, ByVal e As WebBrowserNavigatedEventArgs) Me.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle TabControl1.SelectedTab.Text = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).DocumentTitle End Sub

---

bon, après tous, mes tabs sont toujour " blank " il n'y a aucun texte inséré dedans sauf sur ma premiere acause du code " Nouvelle page "



... Je demande a nouveau votre aide. Un gros gros gros merci.

il ne suffit pas de déclarer la Sub pour qu'elle gère l'évènement, il faut aussi l'associer au contrôle.

Juste après l'endroit où tu crées le WebBrowser, ajoute ça :

Code:

---

AddHandler Browse.DocumentCompleted, AddressOf browse_DocumentCompleted

---

Et dans le code du handler d'évènement, fait ça :

Code:

---

1 2 3 4 5

Private Sub browse_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) Dim browse As WebBrowser = CType(sender, WebBrowser) Dim tab As TabPage = CType(browse.Parent, TabPage) tab.Text = browse.DocumentTitle End Sub

---

Merci beaucoup, tout fonctionne correctement.

Cependant, il y a t'il une façon de faire que lorsque j'ajoute des tabpages, qu'il prennes un lien ex: www.google.ca a la place que sa soit le vide ?

Gros merci encore =D

il suffit de donner une adresse à la création du contrôle WebBrowser...

Code:

---

Browser.Navigate("www.google.ca")

---

Merci beacoup pour tous, J'apprecie beaucoup l'aide =D