Discussion :

[Morphee_]

Pour exemple, prenons un objet simple et une classe qui permet d'en faire des listes. Dans cette classe j'ajoute un sub simple qui permet d'ajouter un objet à la liste à partir d'un string (j'ai simplifié la manip que je fais avec un simple tolower).

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
Class MyCustomObject
    Public Prop1 As String
    Public Prop2 As String
End Class
 
Class MyCustomObjectList
    Inherits List(Of MyCustomObject)
 
    Public Sub AddFromString(ByVal StringToAdd As String)
        Dim Temp_Obj As New MyCustomObject
        Temp_Obj.Prop1 = StringToAdd
        Temp_Obj.Prop2 = StringToAdd.ToLower
        Me.Add(Temp_Obj)
    End Sub
 
End Class

Je déclare une nouvelle variable au début de mon application :

Code :

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

Dim MyCustomList As New MyCustomObjectList

Aucun problème lorsque je fais des add(object) ou des AddFromString(string) depuis le thread principal, mais si je lance un thread secondaire AddFromString(string) ne fonctionne pas, j'ai l'erreur :

La référence d'objet n'est pas définie à une instance d'un objet.

J'ai bien compris que le debugger me reproche de ne pas avoir instancié ma variable dans le thread ou je l'utilise. Pourtant les autres méthode (add, contains etc...) fonctionnent, et des variables comme string() déclarées dans le thread principal fonctionnent parfaitement dans le thread secondaire...

La question est donc, comment fait-on?

[Pol63]

il faudrait qu'on voit plus de code pour te dire ton erreur

le Dim MyCustomList As New MyCustomObjectList est sur quelle classe ?
le code du thread est où ?

J'ai bien compris que le debugger me reproche de ne pas avoir instancié ma variable dans le thread ou je l'utilise.

non il ne te reproche de ne pas l'avoir instancié dans le thread, mais d'essayer de manipuler quelque chose de non instancié

une variable n'est pas liée à un thread, elle est toujours accessible de tous les threads

[Morphee_]

il faudrait qu'on voit plus de code pour te dire ton erreur

le Dim MyCustomList As New MyCustomObjectList est sur quelle classe ?
le code du thread est où ?


non il ne te reproche de ne pas l'avoir instancié dans le thread, mais d'essayer de manipuler quelque chose de non instancié

une variable n'est pas liée à un thread, elle est toujours accessible de tous les threads

Pourtant la même MyCustomList manipulée dans le thread principal : pas de problème...
Quel partie du code veux-tu voir en plus?

[Pol63]

le Dim MyCustomList As New MyCustomObjectList est sur quelle classe ?
le code du thread est où ?

[Morphee_]

Ok, je me suis mal exprimé dans mon premier post .

Code :

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

Dim MyCustomList As New MyCustomObjectList

Est dans ma classe Main (correspondant à mon UI principale).

Code du thread en plus dans cette même classe Main :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 Dim MyThread As New Threading.Thread(AddressOf MyFunctionThread)
 
'Plus loin j'ai un sub qui fait :
Sub LaunchThread()
MyThread = New Threading.Thread(AddressOf MyFunctionThread)
MyThread.Start()
MyThrea.IsBackground = True
End Sub
 
'Et le code de MyFunctionThread
 Sub MyFunctionThread()
MyCustomList.AddFromString("Test TTTT")
 End Sub

Précision, avant d'utiliser mon MyCustomObject, j'utilisais une simple string pour concaténer toutes mes valeurs au lieu de les mettre dans une liste, c'est sale et moins efficace, mais ça marchait très bien...

[Pol63]

aucune erreur chez moi avec le code suivant

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
 
Public Class Form1
 
    Sub New()
        InitializeComponent()
 
        LaunchThread()
 
    End Sub
 
    Dim MyCustomList As New MyCustomObjectList
 
    Dim MyThread As Threading.Thread ' ca ne sert à rien de faire un new sachant que tu en fais un plus bas
 
    Sub LaunchThread()
        MyThread = New Threading.Thread(AddressOf MyFunctionThread)
        MyThread.IsBackground = True
        MyThread.Start()
    End Sub
 
    Sub MyFunctionThread()
        MyCustomList.AddFromString("Test TTTT")
    End Sub
 
End Class
 
 
Class MyCustomObject
    Public Prop1 As String
    Public Prop2 As String
End Class
 
Class MyCustomObjectList
    Inherits List(Of MyCustomObject)
 
    Public Sub AddFromString(ByVal StringToAdd As String)
        Dim Temp_Obj As New MyCustomObject
        Temp_Obj.Prop1 = StringToAdd
        Temp_Obj.Prop2 = StringToAdd.ToLower
        Me.Add(Temp_Obj)
    End Sub
 
End Class

donc c'est bien une erreur quelque part dans ton code
ou alors tu penses que le message d'erreur venait de là alors qu'il vient d'ailleurs ...

[Morphee_]

Effectivement, merci Pol63, je me suis trop concentré sur la partie ou l'erreur est levée alors qu'en fait un vieux bout de code ailleurs dans mon programme faisait un truc à la con :

Code :

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

MyCustomList = nothing

donc résolu !
Merci encore pour vos réponses si rapides !