Salut tout le monde,
Mon problème est le suivant. J'ai crée un navigateur en vb. Je parviens à créer de onglets et à les fermer, mais par contre lorsque j'entre une url elle ne s'affiche ni sur l'onglet sur lequel je me trouve, ni sur aucun autre. En fait ce que je veux faire c'est naviguer entre les onglets, un peu comme mozilla firefox ou google chrome.

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
 
Public Class NavigoLeKrismatikSergeo
 
 
 
    Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
        Me.ecran.Navigate(url.Text)
 
 
 
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.chargement.Visible = False
        Me.annuler.Enabled = False
        Me.precedent.Enabled = False
        Me.suivant.Enabled = False
 
    End Sub
 
    Private Sub ecran_CanGoBackChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ecran.CanGoBackChanged
 
        If Me.ecran.CanGoBack Then
 
            Me.precedent.Enabled = True
        Else
            Me.precedent.Enabled = False
        End If
 
    End Sub
 
    Private Sub ecran_CanGoForwardChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ecran.CanGoForwardChanged
 
        If Me.ecran.CanGoForward Then
            Me.suivant.Enabled = True
        Else
            Me.suivant.Enabled = False
        End If
 
    End Sub
 
    Private Sub ecran_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles ecran.DocumentCompleted
        Me.chargement.Visible = False
        Me.annuler.Enabled = False
        Me.url.Text = ecran.Url.ToString
    End Sub
 
    Private Sub ecran_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles ecran.Navigating
        Me.chargement.Visible = True
        Me.annuler.Enabled = True
        Me.url.Text = ecran.Url.ToString
    End Sub
 
    Private Sub ecran_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles ecran.ProgressChanged
        Me.chargement.Maximum = e.MaximumProgress
        Me.chargement.Value = e.CurrentProgress
    End Sub
 
    Private Sub annuler_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles annuler.Click
        Me.ecran.Stop()
 
    End Sub
 
    Private Sub actualiser_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles actualiser.Click
        Me.ecran.Refresh()
    End Sub
 
 
    Private Sub precedent_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles precedent.Click
 
        Me.ecran.GoBack()
 
    End Sub
 
    Private Sub suivant_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles suivant.Click
 
 
        Me.ecran.GoForward()
 
    End Sub
 
 
    Private Sub ajout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ajout.Click
 
        Dim page As New TabPage
        Dim ecranonglet As New WebBrowser
 
        With page
 
            .Controls.Add(ecranonglet)
 
        End With
 
 
        With ecranonglet
            .Dock = DockStyle.Fill
 
        End With
        Me.onglets.TabPages.Add(page)
 
 
    End Sub
 
    Private Sub url_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles url.KeyPress
        If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Enter) Then
 
            Me.ecran.Navigate(url.Text)
 
        End If
 
    End Sub
 
    Private Sub fermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fermer.Click
        Dim fermeonglet As New TabPage
        fermeonglet = onglets.SelectedTab
 
        Me.onglets.TabPages.Remove(fermeonglet)
 
 
    End Sub
 
End Class
Merci d'avance