Erreur d'échange d'informations entre 2 fenêtresVB

Résolu
Alvin1614 Messages postés 115 Statut Membre -  
Alvin1614 Messages postés 115 Statut Membre -
Bonjour,

Depuis quelque temps, je fais du VB. Je ne suis qu'un débutant...
Ces derniers jours, j'ai commencé un programme, mais il y a une erreur.
Ce programme échange des données entre 2 fenêtres. Dans la première, on tape une URL et puis on appuie sur un bouton à côté qui ouvre la fenêtre 2. Dans la fenêtre 2, il y a un "WebBrowser" qui est censé afficher la page web demandée dans la fenêtre 1.
Mais il ne me met qu'une valeur se type String ne peut être convertie en System.uri.

Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Form2.Show()
        Form2.WebBrowser1.Url = Me.TextBox1.Text


    End Sub

Donc, quand on clique sur la PictureBox2, ça ouvre la fenêtre 2 et ça met l'URL dans le Web Browser... Mais, cela ne va pas !

Merci d'avance pour vos réponses !

1 réponse

  1. Yoda
     
    Bonjour

    Essaye de cette façon

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    Dim myForm As New Form2
    myForm.WebBrowser1.Url = Me.TextBox1.Text
    myForm.Show()
    End Sub


    tu peux aussi remplacer myForm.Show() par myForm.ShowDialog()
    ceci obligera de fermer Form2 pour continuer.
    0
    1. Alvin1614 Messages postés 115 Statut Membre 4
       
      Merci beaucoup, mais pour la première solution, ça ne fonctionne pas... Il ouvre la fenêtre mais elle reste blanche.
      0
    2. Alvin1614 Messages postés 115 Statut Membre 4
       
      Enfait, c'est le
      Me.TextBox1.Text
      qui ne peut être converti en System.uri...
      0
    3. Alvin1614 Messages postés 115 Statut Membre 4
       
      Ah oui, aussi est-ce que ce serait possible que le nom de la fenêtre soit le nom du site (ex : Google.com).
      Je sais pas où mettre que c'est
      Form1.TextBox1.Text 
      qui doit définir le nom .
      Me.Text = "Monapp"

      Si je met
      Me.Text = Form1.TextBox1.Text
      il me met la même chose (Une valeur de type String ne peut pas être convertie en System.uri).
      0
    4. Yoda
       
      voila la solution

      tu dois déclarer une variable System.Uri comme dans l'exemple qui suit
      j'ai mis uri à "http://google.fr", à toi d'adapter

      Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
      Dim myform As New Form2
      'Dim uri As New System.Uri(TextBox1.Text)
      Dim uri As New System.Uri("http://google.fr")
      myform.WebBrowser1.Url = uri
      myform.Show()
      End Sub
      0
    5. Alvin1614 Messages postés 115 Statut Membre 4
       
      Merci, mais il ne faut pas oublier que ça doit aller à l'adresse mise dans la fenêtre 1.
      0