none
Erreur enpèchant le déboguage. RRS feed

  • Question

  • Bonjour.

    Débutant sous Visual Basic 2008 Express Edition,je crée un navigateur Web.Mon problème,c'est que j'ai l'erreur suivante :

    Arguments trop nombreux pour 'Public Sub GoSearch()

    Voici mon code entier :

    Public Class Itoon
    
      Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
    
      End Sub
    
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value += 100
        WebBrowser.Navigate(TextBox1.Text)
        ProgressBar1.Value -= 100
      End Sub
    
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value += 100
        WebBrowser.GoSearch(TextBox2.Text)
        ProgressBar1.Value -= 100
      End Sub
      Private Sub Itoon_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Message As String = "La version de Itoon 2 que vous utilisez est en développement.Vous pouvez y rencontrez des bugs.Si vous en rencontrez un,merci de le signaler aux développeurs."
        MsgBox(Message)
        Dim Message2 As String = "ATTENTION : Pour regarder un site,merci de taper son URL sinon il ne s'affichera rien.Pour des raisons de sécurité,il est déconseillé de regarder des pages web."
        MsgBox(Message2)
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Value = 0
      End Sub
      Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Enabled = True
        ProgressBar1.Value = ProgressBar1.Maximum
      End Sub
    End Class
    
    
    Merci de votre réponse.

    samedi 3 juillet 2010 16:51

Réponses

Toutes les réponses