Discussion :

[gaetan13]

Bonjour,
J'ai un petit souci avec mes threads :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
41
42
43
44
45
46
 
Public Class client
    Dim clientSocket As TcpClient
    Dim reader As StreamReader
    Dim writer As StreamWriter
    Dim clientThread As Thread
    Dim Richtextbox As RichTextBox
 
    Public Sub startClient(ByVal Socket As TcpClient, ByVal inReader As StreamReader, ByVal inWriter As StreamWriter, ByVal inRichtextbox As RichTextBox)
        Try
            clientSocket = Socket
            reader = inReader
            Richtextbox = inRichtextbox
 
            clientThread = New Thread(AddressOf Com)
            clientThread.Start()
        Catch e As Exception
            Console.WriteLine(e.ToString)
        End Try
    End Sub
 
    Private Delegate Sub Ajout(ByVal type As Integer, ByVal text As String, ByVal RichTextBox As RichTextBox, ByVal prefix As String)
    Private Sub TraitementBis(ByVal type As Integer, ByVal text As String, ByVal RichTextBox As RichTextBox, ByVal prefix As String) 'traitement
        RadForm1.Invoke(New Ajout(AddressOf RadForm1.WriteLine), type, text, RichTextBox, prefix)
    End Sub
 
    Public Sub Com()
        While True
            Try
                TraitementBis(2, reader.ReadLine(), Richtextbox, "User")
            Catch e As Exception
                TraitementBis(0, "Disconnected from server", Richtextbox, "")
 
                reader.Close()
                writer.Close()
 
                clientSocket.Close()
 
                clientThread.Join()
                clientThread.Abort()
 
 
            End Try
        End While
    End Sub
End Class

La fonction writeline est dans radForm1.

Impossible d'appeler Invoke ou BeginInvoke sur un contrôle tant que le handle de fenêtre n'a pas été créé.

Il me met cette erreur ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TraitementBis(ByVal type As Integer, ByVal text As String, ByVal RichTextBox As RichTextBox, ByVal prefix As String) 'traitement
        RadForm1.Invoke(New Ajout(AddressOf RadForm1.WriteLine), type, text, RichTextBox, prefix)
    End Sub

Je ne comprends vraiment pas pourquoi... Ma form se charge pourtant ! Avant que je crée des client et donc des threads

[gaetan13]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim main As RadForm1 = CType(Application.OpenForms(0), RadForm1)
        main.Invoke(New Ajout(AddressOf RadForm1.WriteLine), type, text, RichTextBox, prefix)

Semble fonctionner

[tomlev]

Encore une illustration de pourquoi cette "fonctionnalité" de VB.NET (utiliser le nom de la classe de la Form comme si c'était une instance de la classe) est une aberration qui ne devrait même pas exister... RadForm1 ne fait pas référence à la même instance de RadForm1 selon le thread dans lequel tu te trouves.

[gaetan13]

Merci beaucoup !

[tomlev]

Merci beaucoup !

bah de rien, tu avais déjà trouvé la solution avant mon intervention