Thread : affichage de texte sur la form

Bonjour,
J'ai une fonction qui affiche la liste de mes emails dans une listview. Lors du chargement je souhaite afficher l'état d’avancement de la lecture des mails.
Je suis en train de mettre cette fonction dans un thread mais le programme s’arrête quand j'invoke mon deleguate.
Merci pour votre aide.
initialisation

Code:

---

1 2 3

Dim mythread As Thread Delegate Sub form_delegate(ByVal valeur As String)

---

mon thread

Code:

---

1 2	mythread = New Thread(AddressOf cmdafficher_thread) mythread.Start()

---

Dans la sub de mon thread

Code:

---

1 2 3 4 5 6 7

Sub cmdafficher_thread()   --- --- tmpstr = "telechargement des messages .... " & (messageCount - i) & "/" & (messageCount - debutcpt)   Me.Invoke(New form_delegate(AddressOf affichageform), tmpstr)

---

Le code du delegate

Code:

---

1 2 3 4

Private Sub affichageform(ByVal msg As String) Me.Text = msg   End Sub

---

bonjour,

si tu places ton appel invoke dans une conditionnelle :

Code:

---

1 2 3

if me.invokerequired then ' Ton invocation ici !! end if

---

ca donne quoi....

Bonjour Wallace1

Il rentre dans le if mais après il reste calé sans donné de message d'erreur

Citation:

---

Envoyé par pve3

Bonjour Wallace1

Il rentre dans le if mais après il reste calé sans donné de message d'erreur

---

Il faudrait que tu nous donnes un simili de code complet car en l'état nous ne savons pas :

- à quel endroit de ton projet tu exécutes le thread :

Code:

---

1 2	mythread = New Thread(AddressOf cmdafficher_thread) mythread.Start()

---

- pour pouvoir afficher chaque titre de mail il serait judicieux de voir où et comment tu le fais (on peut se douter qu tu le fais au moyen d'une boucle) !

En attente de ces compléments d'infos.


++