Utilisation d'une list of() dans un autre thread

Version imprimable

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:

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:

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 :

Citation:

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?

07/12/2012, 10h54
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ù ?

Citation:

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
07/12/2012, 11h11
Morphee_

Citation:

Envoyé par 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ù ?

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?
07/12/2012, 12h13
Pol63

Citation:

Envoyé par Pol63

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

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

Code:

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:

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...

aucune erreur chez moi avec le code suivant

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
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 ...

07/12/2012, 14h22
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:

MyCustomList = nothing

:?

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