Multithread: probleme de cross-threading avec un contrôle

Bonjour à tous,

Je débute avec les thread et je me trouve confronté à un petit problème que je n'arrive pas à résoudre.
Dans une Form, j'ai une procédure d'ouverture de fichier (pas du tout optimisée):

PrivateSub OpenFile()

Dim i AsInteger = 1

Dim monStreamReader AsNew StreamReader(Me.txtFileA.Text()) 'Stream pour la lecture

Dim ligne AsString' Variable contenant le texte de la ligne

DoWhileTrue

ligne = monStreamReader.ReadLine()

Me.TextBox1.Text = Me.TextBox1.Text & ligne

' FormMain.TextBox1.Refresh()

Loop' Until ligne Is Nothing

monStreamReader.Close()

EndSub

Et j'ai un thread qui théoriquement lance cette procédure pour ouvrir des fichiers de plusieurs Mb:

PrivateSub btnOpenFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpenFile.Click

Using OpenDial AsNew OpenFileDialog

If (OpenDial.ShowDialog = Windows.Forms.DialogResult.OK) Then

OpenDial.Filter =

"Text files (*.txt)|*.txt|All files (*.*)|*.*"

txtFileA.Text = OpenDial.FileName

Try

' cree un nouveau thread pour economiser le processus

Dim t As Thread

t =

New Thread(New ThreadStart(AddressOf OpenFile))

t.Start()

Catch ex As Exception

MsgBox(

"Une erreur est survenue au cours de l'acces en lecture du fichier." & vbCrLf & vbCrLf & "Veuillez verifier l'emplacement : " & fichier, MsgBoxStyle.Critical, "Errueur lors de l'ouverture du fichier...")

EndTry

EndIf

EndUsing

EndSub

A priori rien de bien sorcier mais voila le message d'erreur que j'obtiens:

"Cross-thread operation not valid: Control 'TextBox1' accessed from a thread other than the thread it was created on."

Si l'un de vous a le courage de m'expliquer... Merci d'avance.

Bonjour,

Le controle Textbox1 appartient au thread principal de ta form, tandis que ton ouverture de fichier se fait sur un thread séparé. Pour accéder au thread principal, il va falloir passer par les délégués.

Petit exemple :

Private sub delegate _Affiche(Texte as string)

Private sub Affiche(Texte as string)
Textbox1.text = textbox1.text & Texte
End sub

Private sub OpenFile()
'Ton traitement

me.invoke(new _Affiche(AdressOf Affiche),Texte) 'Création d'un nouveau délégué pointant vers Affiche et appel de celui par la form

End sub

Tout est fait de tete, il peut y avoir des erreurs.

Je te conseille de te renseigner sur les délégués pour bien comprendre le fonctionnement

Bonne Prog

Tu peux désactiver le contrôle des appels de thread avec la propriété CheckForIllegalCrossThreadCalls.
Me.CheckForIllegalCrossThreadCalls = False

Ceci est une autre méthode bonne à savoir mais évite de l'utiliser.

Je vais tester les 2 solutions, de toute façon il faut que je comprenne les threads (bien que j'aie déjà lu la faq msdn sur le sujet).

Merci, je vous redis.