Opération inter-Thread + inter-Class

Bonjour,
Désolé de vous déranger, j'ai un petit problème avec les threads et les classes.
Je 'sais' réaliser une opération cross-threads avec les Delegate ainsi que je sais réaliser une opération cross-class avec "Form1.[...]", cependant je n'arrive pas à modifier le texte d'une TextBox qui soit sur une classe distante, lancé par un thread, exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Imports System.Threading   Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim newTest As New Test Dim newThread As Threading.Thread = New Thread(AddressOf newTest.start) newThread.Start() End Sub End Class   Public Class Test Delegate Sub SetTextCallback(ByVal text As String) Private Sub Message(ByVal text As String) If Form1.TextBox1.InvokeRequired Then Dim d As New SetTextCallback(AddressOf Message) Form1.Invoke(d, New Object() {text}) MsgBox("A") Else MsgBox("B") Form1.TextBox1.Text &= vbCrLf & text End If End Sub   Public Sub start() Message("Add This") End Sub End Class

---

Comme vous pouvez le voir, j'ai lancé mon thread afin d'exécuter le Sub distant, start().
Cependant, la TextBox ne se remplit pas et seul la MessageBox "B" s'affiche, ce qui n'est pas le cas quand l'opération n'est pas inter-classe.

Ai-je commis un erreur? ou alors, ai-je simplement utilisé la mauvaise fonction?

Merci d'avance pour votre aide, encore désolé du dérangement.
A+.

Citation:

---

Envoyé par Orci76

je sais réaliser une opération cross-class avec "Form1.[...]"

---

non
les débutants faisant du vb.net, microsoft a laissé écrire ca, mais ca marche une fois sur deux car ca n'a pas de sens

il est possible d'avoir plusieurs instances de Form1 affichée à un instant T
or en écrivant Form1.Textbox1.Text = "valeur", ca devient caduque !
VB créé donc à la compilation une variable accessible de partout ayant le nom de la classe de type Form, mais cette variable contient au mieux la dernière instance créée
mais cette fausse variable n'est faite que pour les Form, or du cross class comme tu dis, on peut en faire avec toutes les classes avec la méthode qui suit

pour modifier une autre classe, il faut une référence vers celle ci
= que ta classe test ait une variable privée As Form1, et que quelqu'un lui donne la référence pour la ranger

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

public class form1   private sub bouton_click ... dim t as new test(me) ' on passe une référence de form1, en l'occurrence me t.startThread end sub   end class   Public Class Test private _f as form1   public sub new(f as form1) ' on demande une variable à la création _f = f ' stockage dans une variable de classe pour pouvoir la retrouver dans les autres méthodes de la classe end sub   public sub startThread ' j'ai déplacé le démarrage du thread ici, mais ca n'apporte rien de spécial dim th as new system.threading.thread(addressof start) th.start end sub   private sub start Message("Add This") end sub   Delegate Sub SetTextCallback(ByVal text As String) Private Sub Message(ByVal text As String) If _f.TextBox1.InvokeRequired Then Dim d As New SetTextCallback(AddressOf Message) _f.Invoke(d, New Object() {text}) MsgBox("A") Else MsgBox("B") _f.TextBox1.Text &= vbCrLf & text End If End Sub   end sub

---

là on passe une référence

Bonjour,

Merci beaucoup pour ta réponse si rapide, Pol63.
Mon problème ainsi qu'un autre que j'avais, venant aussi certainement de cette histoire d'instance de Form est dès maintenant résolu, grâce à toi.
Je te remercie donc, non seulement pour cette réponse, mais aussi surtout de m'avoir appris quelque chose de si important!

Merci encore, bonne fin de matinée.