Refresh picturebox et Webbrowser

Bon j'ai fait un petit bout de code vite fait pour te montrer mais les manipulations de chaine de caractères ca a jamais été mon truc...:mrgreen:

Ca donne ca:

Code:

---

1 2 3 4 5 6

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim Str1 As String = lecturePageWeb() Dim positionDebut As Integer = Str1.IndexOf(">") + 1 Dim positionFin As Integer = Str1.IndexOf("</") Label1.Text = Mid(Str1, positionDebut + 1, positionFin - positionDebut) End Sub

---

Attention: cette extraction de chaine ne marchera peut être pas pour tout car j'ai considéré que le titre se trouvait entre les 1er caractères ">" et "</" trouvés dans la page...

Je comprend rien du tout ! Je suis perdu ! :roll:

eh bien tu remplace

Code:

---

1 2 3

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Label1.Text = lecturePageWeb() End Sub

---

par

Code:

---

1 2 3 4 5 6

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click Dim Str1 As String = lecturePageWeb() Dim positionDebut As Integer = Str1.IndexOf(">") + 1 Dim positionFin As Integer = Str1.IndexOf("</") Label1.Text = Mid(Str1, positionDebut + 1, positionFin - positionDebut) End Sub

---

j'ai testé, pour moi ca marche ;)

EDIT -> Désolé je me suis trompé pour l'appel de la fonction dans mon message précédent: je l'avez un peu modifié quand je l'ai testé :aie:

C'est bien ce que j'ai fais mais le label reste vide

hum bizarre....

Est ce que quand tu affiche simplement la chaine renvoyé par la fonction dans un TextBox multiligne ca marche?

Non rien ne s'affiche. A mon avis j'ai fais une connerie car si chez toi cela fonctionne...

Merci de ton aide.

A vrai dire ca ne me dérange pas mais si ca ne marche pas je ne voit pas trop d'ou peux venir l'erreur...