Problème RaiseEvent dans un Thread

Salut,

Ce extrait de code se trouve dans ma classe qui gère la connexion TCP.
Je force l’évènement pour retrouver mon Message du coté de ma Form.
Mais le programme se ferme sans message d'erreur lorsqu'il arrive au RaiseEvent

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

Public Class DialgueTCP   * *     Public Event DataArrival(ByVal Message As String)     * * * *   Private Sub Delegate_Event_DataArrival(ByVal dr As IAsyncResult)   BytesNumber = ServerStream.EndRead(dr) Dim ResponseData As String = System.Text.Encoding.ASCII.GetString(DataBuffer, 0, BytesNumber)   Debug.Print(ResponseData) RaiseEvent DataArrival(ResponseData)   ServerStream.Flush()   End Sub   * * * *   End Class

---

J'ai l'impression que cela vient de mon Thread.

un programme qui se ferme veut dire pas de try catch et signifie aussi programmeur débutant ou pas sérieux

le raisevent étant fait sur un autre thread que le thread principal, le code associé à l'event se déroule sur le thread secondaire
or l'interface ne peut être modifiée que depuis le thread principal

il faut invoker un délégué, il y a plein de topic à ce sujet sur le forum et sur google
tu peux chercher "opération inter thread", message que tu aurais vu si tu avais mis des try catch ou si tu avais lu le rapport d'erreur à la fermeture du programme

Oui je suis un programmeur débutant ;)

j'ai trouvé un moyen de procéder à mon interruption à l’intérieur du thread.

j'appel une procédure comme suit :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Raise(ByVal [event] As [Delegate], ByVal data As Object())   If [event] IsNot Nothing Then   For Each C In [event].GetInvocationList   Dim T = CType(C.Target, ISynchronizeInvoke)   If T IsNot Nothing AndAlso T.InvokeRequired Then T.BeginInvoke(C, data) Else C.DynamicInvoke(data) End If   Next   End If   End Sub

---

je l'appel par cette commande

Code:

---

1 2	Raise(DataArrivalEvent, New Object() {Me, ResponseData})

---