Récuperer le code d'un webbrowser en vb2008

Bonjour,
je vais essayer de vous expliquer ma situation le plus simplement possible : Je voudrais récuperer l'URL de la page webbrowser, l'enregistrer en STRING et l'ajouter à une combo-box.
Ainsi, l'utilisateur pourra cliquer sur une des adresses enregistrées dans la combo box et cliquer sur Rechercher pour retrouver la page enregistrée.
Je suis débutant et pourriez vous m'ecrire tout le code.

Merci d'avance et si vous n'avez pas bien compris, postez moi un message pour me le signaler.
Configuration: Windows Vista
Safari 532.0

2 réponses

  1. mon code tien en une seule ligne
    combobox1.items.add(webbrowser1.url.tostring)

    ce code ajoute un item à la combobox, avec l'url de la page en cours

    ensuite pour naviguer automatiquement à partir du moment ou l'utilisateur a clické sur la page qu'il voulait, il suffit de se placer dans l'evenement (dans la fenetre des propriétés, le petit éclair correspond aux évenements)selectionchanged ou textchanged de la comobobox puis de mettre le code de navigation du webbrowser.

    ex :
    Private Sub ComboBox1_SelectionChangeCommitted(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectionChangeCommitted
    WebBrowser1.Navigate(ComboBox1.SelectedItem.ToString)
    End Sub
    0
    1. C'est simple, tu fait :

      Dim WEBString As String
      Private Sub Monbouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
      Handles Monbouton.Click
      WEBString = TextBox1.Text 'Textbox URL
      ComboBox1.Items.Add(WEBString) 'Ajoute l'item dans la combobox
      WebBrowser1.Navigate(WEBString) 'Chargement de la page dans Webbrowser
      End Sub

      Ce code te permettra de faire une sorte d'historique dans la combobox.
      Ah oui et pour revenir à une page gardée dans la combobox, tu fais

      Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
      WebBrowser1.Navigate(ComboBox1.Text)
      End Sub

      et enfin, si tu veux que à chaque fois que l'utilisateur change de page, cela met un item dans la combobox,

      Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e _
      As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
      ComboBox1.Items.Add(WebBrowser1.Url)
      End Sub

      J'éspère que je t'aurai bien aidé.
      1