Bonjour,
J'ai créé un navigateur web VB avec plusieurs on onglets et je voudrais pouvoir créer un évennement pour la variable webcourant (voir code ) qui me permettrait de modifier le texte de l'onglet quand elle a fini de charger.
Merci

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
27
28
29
30
31
32
33
34
Public Class Form1
    Private Sub NouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouveauToolStripMenuItem.Click
 
        Dim Navigateur As New WebBrowser
        Dim NouvelOnglet As New TabPage
        With Navigateur
            .Navigate("www.google.com/fr")
            .Parent = NouvelOnglet
            .Dock = DockStyle.Fill
 
        End With
        With NouvelOnglet
            .Controls.Add(Navigateur)
 
        End With
        TabControl1.TabPages.Add(NouvelOnglet)
 
    End Sub
 
    Private Sub bt_go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_go.Click
        Dim onglet As TabPage
        onglet = TabControl1.SelectedTab
        For x As Integer = 0 To onglet.Controls.Count
            If (TypeOf (onglet.Controls(x)) Is WebBrowser) Then
                Dim WebCourant As WebBrowser
                WebCourant = onglet.Controls(x)
                WebCourant.Navigate(txt_go.Text)
                TabControl1.SelectedTab.Text = WebCourant.DocumentTitle
            End If
            Exit For
        Next
    End Sub
 
End Class