Discussion :

[jlm22]

Bonjour,

J'ai pour projet de faire un navigateur web, et je bloque sur un certain point. Jusqu'ici j'ai réussi à faire en sorte qu'il y ai des onglets qui se crée dynamiquement, c'est à dire que pour chaque onglet je fait un webbrowser. Le problème c'est qu'a la saisie d'une adresse j'aimerais récupéré le browser qui se trouve dans l'onglet courant et là je vois pas du tout.

Merci d'avance

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
 
Public Class VisualBrowser
    Private countOnglet As Integer = 0
 
#Region "Raccourci"
    Private Sub ctrlf_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        If e.KeyChar = Chr(17) Then
            B_addOnglet.PerformClick()
        End If
    End Sub
#End Region
#Region "Interaction (retour, home ...)"
    Private Sub Rafraichir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Rafraichir.Click
        WebBrowser1.Refresh()
 
    End Sub
 
    Private Sub B_back_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_back.Click
        If WebBrowser1.CanGoBack Then
            WebBrowser1.GoBack()
        End If
    End Sub
 
    Private Sub B_next_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_next.Click
        If WebBrowser1.CanGoForward Then
            WebBrowser1.GoForward()
        End If
    End Sub
 
    Private Sub B_arrete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_arrete.Click
        WebBrowser1.Stop()
    End Sub
 
    Private Sub B_Home_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_home.Click
        WebBrowser1.Navigate("http://www.google.fr")
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        B_home.PerformClick()
        MenuStrip1.Visible = False
    End Sub
 
    Private Sub B_Envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Envoyer.Click
 
    End Sub
 
    Private Sub rechercher(ByVal browser As WebBrowser)
        If Tb_url.Text <> "" Then
            If Tb_url.Text.Substring(0, 3) = "www" Then
                browser.Navigate(Tb_url.Text)
            Else
                browser.Navigate("http://www.google.com/search?aq=f&sourceid=chrome&ie=UTF-8&q=" & Tb_url.Text)
            End If
        End If
    End Sub
 
    Private Sub B_config_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_config.Click
        MenuStrip1.Visible = True
    End Sub
 
#End Region
 
#Region "Navigation"
    Private Sub WebBrowser1_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
        'Tb_url.Text = WebBrowser1.Url.OriginalString
        If Me.WebBrowser1.CanGoForward Then
            Me.B_next.Enabled = True
        Else
            Me.B_next.Enabled = False
        End If
        If Me.WebBrowser1.CanGoBack Then
            Me.B_back.Enabled = True
        Else
            Me.B_back.Enabled = False
        End If
    End Sub
 
    Private Sub WB_NAVIGATEUR_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        'Affiche le nouveau statut, désactive le BT stop
        Me.Lb_statut.Text = WebBrowser1.StatusText
        'on récupère l'adresse de la page et on l'affiche
        Me.Tb_url.Text = Me.WebBrowser1.Url.ToString
        Onglet.SelectedTab.Text = WebBrowser1.Document.Title
    End Sub
#End Region
 
#Region "Onglet"
 
    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked
        Me.Close()
    End Sub
 
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_addOnglet.Click
        Onglet.TabPages.Add("Onglet")
        countOnglet = countOnglet + 1
        Onglet.SelectTab(countOnglet)
 
        Dim browser As New WebBrowser
 
        ' Définit le positionnement du bouton
        browser.Location = New System.Drawing.Point(1, 1)
        ' Définit la taille du bouton
        browser.Size = New System.Drawing.Size(1095, 652)
 
        browser.Navigate("www.google.fr")
        ' Ajoute ce bouton au deuxième onglet de TabControl1
        Onglet.SelectedTab.Controls.Add(browser)
    End Sub
 
    Private Sub B_SupprOnglet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_SupprOnglet.Click
        Onglet.TabPages.Remove(Onglet.SelectedTab)
    End Sub
End Class

[Luc1an0]

Salut,

Tu peux essayer de faire un

Code :

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

MonOnglet.Controls.Item(Index)

Cela te permettra de récupérer un contrôle dans ton onglet

[jlm22]

Salut !
L'index correspond à quoi ?

[jlm22]

Bon j'ai fait sa :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  Private Sub B_Envoyer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_Envoyer.Click
        rechercher(Onglet.SelectedTab.Controls.Item(1))
    End Sub

    Private Sub rechercher(ByVal browser As WebBrowser)
        If Tb_url.Text <> "" Then
            If Tb_url.Text.Substring(0, 3) = "www" Then
                browser.Navigate(Tb_url.Text)
            Else
                browser.Navigate("http://www.google.com/search?aq=f&sourceid=chrome&ie=UTF-8&q=" & Tb_url.Text)
            End If
        End If
    End Sub

Il plante à la ligne en rouge.

Erreur Argument Exception : La valeur n'est pas comprise dans la plage attendue.

[jlm22]

Bon j'ai mis à jour IE sa fonctionne maintenant