Discussion :

[Mario Rousson]

Bonjour,

j'ai une tâche multithread qui doit faire une écriture dans un listeview
mais je comprend pas pk mon lv a un invoke.required = true

voici mon code

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
 
'Au debut de la classe 
Delegate Sub UIOneArgSub(ByVal Msg As String)
Dim DelRecLVStat As UIOneArgSub
 
'Dans mon sub 
Dim Msg As String = (r.Item(0) & ";" & r.Item(1) & ";" & r.Item(2) & ";" & r.Item(3))
            DelLVStat(Msg)
 
 
Sub DelLVStat(ByVal msg As String)
        If Not LVStat2.InvokeRequired Then
            Dim MaStr() As String
            MaStr = msg.Split(";")
            Dim LVI As New ListViewItem
            LVI.UseItemStyleForSubItems = False
            LVI.Text = MaStr(0)
            LVI.SubItems.Add(MaStr(1))
            LVI.SubItems.Add(MaStr(2))
            LVI.SubItems.Add(MaStr(3))
            LVStat2.Items.Add(LVI)
        Else
            DelRecLVStat = New UIOneArgSub(AddressOf DelLVStat)
            Me.BeginInvoke(DelRecLVStat, New Object() {msg})
        End If
    End Sub

pourtant dans une autre form la sequense fonctionne bien

merci de vos suggestions

Mario

[Mario Rousson]

Désolé le problème était au niveau de la déclararion des threads.

[Mario Rousson]

Ouaie bien quelqu'un peut-il m'expliquer pk lorsque je mais un .join à mes threads mon delegate ne fonctionne plus, et sans le .join ça fonctionne bien.

Code :

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

1
2
3
4
5
6
7
8
For i = 0 To 10
            Dim T As New Threading.Thread(AddressOf DoTheTask2)
            T.Name = "Thread#" & i.ToString
            ObjDataSetEtFin.Tables.Add(T.Name)
            MiseEnForme(ObjDataSetEtFin.Tables(T.Name), "EtFin")
            T.Start(T.Name)
            T.Join()
        Next

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
Sub DoTheTask2(ByVal thr As String)
        SyncLock (Lock)
            Do Until QuTor.Count = 0
                Dim Symb As String = QuTor.Dequeue
                CreerDataTable2(Symb, "T", thr)
                ObjDataSetEtFin.Tables(thr).Dispose()
                ObjDataSetEtFin.Tables(thr).Rows.Clear()
                My.Application.DoEvents()
            Loop
etc.
Sub CreerDataTable2(ByVal symb As String, ByVal Brs As String, ByVal thr As String)
...
 Dim Msg As String = String.Format("{0};{1};{2};{3}", symb, CrRev, CrBen, CrCap)
        DelLVStat(Msg)
...
end sub

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
Sub DelLVStat(ByVal msg As String)
        If Not LVStat2.InvokeRequired Then
            Dim MaStr() As String
            MaStr = msg.Split(";")
            Dim LVI As New ListViewItem
            LVI.UseItemStyleForSubItems = False
            LVI.Text = MaStr(0)
            LVI.SubItems.Add(MaStr(1))
            LVI.SubItems.Add(MaStr(2))
            LVI.SubItems.Add(MaStr(3))
            LVStat2.Items.Add(LVI)
        Else
            DelRecLVStat = New UIOneArgSub(AddressOf DelLVStat)
            Me.BeginInvoke(DelRecLVStat, New Object() {msg})
        End If

merci

[Pol63]

le multithreading est quelque chose qui peut etre complexe
ce que vous en faites me semble étrange à première vue

il faut éviter les .join sur le thread principal (et tout ce qui peut durer plus d'une seconde de manière générale)
il faut éviter application.doevents, ca montre en général une mauvaise construction
et avec un synclock dessus ca doit pouvoir mener à un deadlock ^^

ca ressemble à du code improvisé, et avec un mauvais paramétrage de vs (il faut activer option strict on par exemple)

tu as essayé le backgroundworker ?

[Mario Rousson]

Oui J'ai essayé le backgroudWorker mais je recherche une solution qui peut faire plusieurs fois la même routine avec des paramaitre différant.

Je viens d'activer option strict j'ai beaucooup de correction à faire alors je reviendrai la dessus plus tart.

[Pol63]

Oui J'ai essayé le backgroudWorker mais je recherche une solution qui peut faire plusieurs fois la même routine avec des paramaitre différant.

le backgroundworker n'est qu'un thread encapsulé avec tout ce qui est utile (mise à jour de l'UI, cancellation pré cablée etc...) donc souvent plus pratique pour les débutants
tout ce qu'on peut faire avec un thread, on peut le faire avec le backgroundworker

Je viens d'activer option strict j'ai beaucooup de correction à faire alors je reviendrai la dessus plus tart.

à faire quand même
ca évite parfois de passer 3 jours à cherche un bug 6 mois après

[Mario Rousson]

Merci beaucoup Pol63 Je viens de corrigé une multitude d'erreurs en activant la fonction strick.

Je me rend compte que je doit reprendre une bonne partis de mon code, c'est apprecié de comprendre que je suis amateur en programmation et que j'apprend par des conseils comme tu donnes.

bonne journée