Discussion :

[icekev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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()

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?
tu as déjà une référence vers le WebBrowser (la variable Browse), tu peux l'utiliser directement...

[icekev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[tomlev]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

AddHandler Browse.DocumentCompleted, AddressOf browse_DocumentCompleted

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[icekev]

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

[tomlev]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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