Hello !

Voilà j'ai un problème sur le tuto du tp d'internet .

http://www.siteduzero.com/tutoriel-3-1 [...] teur-web.html

Voilà regardez le code de la personne qui à fait ce tuto puis regardez le mien :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Les 2 lignes suivantes peuvent être remplacées par Me.WB_NAVIGATEUR.Navigate("http://www.google.fr")
        Me.TXT_ADRESSE.Text = "http://www.google.fr"
     

        'Au démarrage, pas de possibilité de précédent, suivant, stop
        Me.Button1.Enabled = False
        Me.Button2.Enabled = False
        Me.Button3.Enabled = False
    End Sub

    'Lorsque le chargement est fini
    Private Sub WB_NAVIGATEUR_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB_NAVIGATEUR.DocumentCompleted
        'Affiche le nouveau statut, désactive le BT stop
        Me.labelwait.Text = WB_NAVIGATEUR.StatusText
        Me.Button3.Enabled = False
        'on récupère l'adresse de la page et on l'affiche
        Me.TXT_ADRESSE.Text = Me.WB_NAVIGATEUR.Url.ToString
    End Sub

    'Lorsque le chargement commence
    Private Sub WB_NAVIGATEUR_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WB_NAVIGATEUR.Navigating
        'On active le bouton stop
        Me.Button3.Enabled = True
        'On met le statut à jour
        Me.labelwait.Text = WB_NAVIGATEUR.StatusText

        If Me.WB_NAVIGATEUR.CanGoForward Then
            Me.Button2.Enabled = True
        Else
            Me.Button2.Enabled = False
        End If
        If Me.WB_NAVIGATEUR.CanGoBack Then
            Me.Button1.Enabled = True
        Else
            Me.Button1.Enabled = False
        End If
    End Sub
#Region "Boutons de navigation"

    Private Sub labelwait_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Si il existe une adresse, on y va
        If Not Me.TXT_ADRESSE Is Nothing Then
            Me.WB_NAVIGATEUR.Navigate(TXT_ADRESSE.Text)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Va a la page précédente
        Me.WB_NAVIGATEUR.GoBack()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Va a la page suivante
        Me.WB_NAVIGATEUR.GoForward()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Desactive le bt stop et arrête le chargement du navigateur
        Me.Button3.Enabled = False
        Me.WB_NAVIGATEUR.Stop()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'Raffraichit le navigateur
        Me.WB_NAVIGATEUR.Refresh()
    End Sub

#End Region


#Region "Evènements du WBroser"

    'a chaque changement d'état, on met à jour les boutons
    Sub WB_NAVIGATEUR_CanGoForwardChanged(ByVal sender As Object, ByVal e As EventArgs) Handles WB_NAVIGATEUR.CanGoForwardChanged
        If Me.WB_NAVIGATEUR.CanGoForward Then
            Me.Button2.Enabled = True
        Else
            Me.Button2.Enabled = False
        End If
    End Sub

    'a chaque changement d'état, on met à jour les boutons
    Sub WB_NAVIGATEUR_CanGoBackChanged(ByVal sender As Object, ByVal e As EventArgs) Handles WB_NAVIGATEUR.CanGoBackChanged
        If Me.WB_NAVIGATEUR.CanGoBack Then
            Me.Button1.Enabled = True
        Else
            Me.Button1.Enabled = False
        End If
    End Sub

    'Au changement de statut de la page
    Sub WB_NAVIGATEUR_StatutTextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles WB_NAVIGATEUR.StatusTextChanged
        'On met le statut à jour
        Me.labelwait.Text = WB_NAVIGATEUR.StatusText
    End Sub

    'Au changement de progression de la page
    Sub WB_NAVIGATEUR_ProgressChanged(ByVal sender As Object, ByVal e As WebBrowserProgressChangedEventArgs) Handles WB_NAVIGATEUR.ProgressChanged
        Me.PGB_STATUT.Maximum = e.MaximumProgress
        Me.PGB_STATUT.Value = e.CurrentProgress
    End Sub

    'Lorsque le chargement est fini
    Private Sub WB_NAVIGATEUR_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB_NAVIGATEUR.DocumentCompleted
        'desactive le BT stop
        Me.Button3.Enabled = False
        'On cache la barre de progression
        Me.PGB_STATUT.Visible = False
        'on récupère l'adresse de la page et on l'affiche
        Me.TXT_ADRESSE.Text = Me.WB_NAVIGATEUR.Url.ToString
    End Sub

    'Lorsque le chargement commence
    Private Sub WB_NAVIGATEUR_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WB_NAVIGATEUR.Navigating
        'On active le bouton stop
        Me.Button3.Enabled = True
        'au début du chargement, on affiche la barre de progression
        Me.PGB_STATUT.Visible = True
    End Sub
#End Region



End Class

Et puis j'ai ces erreurs qui apparaissent :


Erreur 1 'Private Sub WB_NAVIGATEUR_DocumentCompleted(sender As Object, e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs)' a plusieurs définitions comportant des signatures identiques.

Erreur 2 'Private Sub WB_NAVIGATEUR_Navigating(sender As Object, e As System.Windows.Forms.WebBrowserNavigatingEventArgs)' a plusieurs définitions comportant des signatures identiques.


Que faire ?

L'erreur est pourtant explicite...

Regarde ligne 15 et ligne 107 du code présenté ici.

Pour la 2eme erreur, pareil mais aux lignes 24 et 117.

Si tu ne trouves toujours pas :


Edit : Je viens de lire le tutoriel que tu suis...Vouloir apprendre à développer, c'est bien...Mais je ne pense pas que ta technique du copié-collé massif de code trouvé dans ces exos soit une bonne façon d'apprendre...

Ok merci , c'est vrai que cela était tout bête.