Menu

Erreur d'échange d'informations entre 2 fenêtresVB [Résolu]

Alvin1614 40 Messages postés lundi 24 avril 2017Date d'inscription 14 avril 2018 Dernière intervention - 4 avril 2018 à 11:43 - Dernière réponse : Alvin1614 40 Messages postés lundi 24 avril 2017Date d'inscription 14 avril 2018 Dernière intervention
- 14 avril 2018 à 18:01
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 !
Afficher la suite 

8 réponses

Répondre au sujet
0
Utile
7
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.
Alvin1614 40 Messages postés lundi 24 avril 2017Date d'inscription 14 avril 2018 Dernière intervention - 4 avril 2018 à 12:58
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).
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
Alvin1614 40 Messages postés lundi 24 avril 2017Date d'inscription 14 avril 2018 Dernière intervention - 4 avril 2018 à 13:20
Merci, mais il ne faut pas oublier que ça doit aller à l'adresse mise dans la fenêtre 1.
A toi de voir d'ou vient l'information

exemple
Dim uri As New System.Uri("http://google.com")
Dim uri As New System.Uri(Textbox1.Text)
Dim uri As New System.Uri(Me.Text)
Alvin1614 40 Messages postés lundi 24 avril 2017Date d'inscription 14 avril 2018 Dernière intervention - 14 avril 2018 à 18:01
Merci beaucoup pour toutes tes réponses Yoda !
Commenter la réponse de Yoda