Discussion :

[Mario Rousson]

Bonjour à vous Oh! grand développeur

je sollicite votre aide pour m'aider, dans la mesure du possible, à enlever l'effet de scintillement lors d'écriture dans un listview par une opération multi-thread.

J'ajoute une nouvelle ligne à la fin de chaque thread par délégué et j'ai un effet de sautillement ...genre, lorsque on regarde un écran d'ordinateur dans un film à la télévision, et ce, même si la ligne qui est ajouté est beaucoup plus bas que le bas de l'écran.

je vous présente mon délégué dans l'espoir d'une solution,j'ai essayé refresh et c'est pire car je ne peut plus me déplacer sur la page.

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
Sub DelListVScan(ByVal msg As String)
        'Control.InvokeRequired = False <=>Appel normal du Form
        If Not ListVScan.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))
            LVI.SubItems.Add(CDbl(MaStr(4)).ToString("F"))
            LVI.SubItems.Add(CDbl(MaStr(5)).ToString("F"))
            LVI.SubItems.Add(CDbl(MaStr(6)).ToString("F"))
            LVI.SubItems.Add(CDbl(MaStr(7)).ToString("F"))
            LVI.SubItems.Add(CDbl(MaStr(8)).ToString("F"))
            LVI.SubItems.Add(CDbl(MaStr(9)).ToString("F"))
            LVI.SubItems.Add(CDbl(MaStr(10)).ToString("F"))
            LVI.SubItems.Add(MaStr(11))
            If CDbl(MaStr(9)) < 0 Then
                LVI.SubItems(9).BackColor = Color.Red
                LVI.SubItems(10).BackColor = Color.Red
            End If
            If CDbl(MaStr(9)) > 0 Then
                LVI.SubItems(9).BackColor = Color.AliceBlue
                LVI.SubItems(10).BackColor = Color.AliceBlue
            End If
            ListVScan.Items.Add(LVI)
            'ListVScan.Refresh()
         Else
            'non Appel à delegue de Maniere Asynchrone (BeginInvoke) 
            DelRecLIstVScan = New UIOneArgSub(AddressOf DelListVScan)
            Me.BeginInvoke(DelRecLIstVScan, New Object() {msg})
        End If

merci à l'avance

[StringBuilder]

As-tu essayé de passer la form en DoubleBuffered ?

Ca permet souvent de corriger ce problème sans avoir rien d'autre à coder.

[Pol63]

à chaque ajout d'item le control recalcul tout et se redessine
il doit y avoir beginupdate / endupdate ou un truc dans le genre sur le listview
ca permet pendant l'ajout d'items que le control ne recalcule rien et attende le endupdate pour ne faire tout qu'une fois

beaucoup de classes traitant beaucoup de données ont des méthodes similaires en général

[StringBuilder]

En même temps, si le listview est alimenté par un autre thread, j'imagine qu'il veut voir le listview se remplir petit à petit, et éventuellement pouvoir l'utiliser pendant qu'il se rempli, je me trompe ?

Si c'est le cas, l'idée du beginupdate n'est pas bonne je pense, puisque le listview va se comporter de manière synchrone avec le thread de remplissage.

Idem, j'avais dans l'idée de faire un SuspendLayout(), mais ça va faire perdre l'intérêt d'avoir un thread séparé.

[Pol63]

le problème vient surtout du fait qu'ajouter les lignes une par une est une mauvaise idée

si le thread ramène 100 lignes, autant toutes les mettre en une seule fois à la fin
s'il en ramène 1000 alors on peut appeler le délégué toutes les 100 lignes

[StringBuilder]

le problème vient surtout du fait qu'ajouter les lignes une par une est une mauvaise idée

si le thread ramène 100 lignes, autant toutes les mettre en une seule fois à la fin
s'il en ramène 1000 alors on peut appeler le délégué toutes les 100 lignes

Si c'est par exemple une liste d'email dans une boîte aux lettres, et qu'il faut 10 minutes pour charger tous les mails de la nuit car la ligne est lente, je doute fortement que l'utilisateur accepte d'attendre 10 minutes avant de pouvoir commencer à utiliser son logiciel. Y'a déjà assez de malheureux dans le monde qui utilisent Lotus Notes sans en rajouter une couche

En revanche, on peut éventuellement les regrouper à l'aide d'un timer : genre toutes les 5 secondes, on ajoute les lignes retrouvées.

Tout dépend en fait de la vitesse à laquelle les lignes arrivent.

Mais je maintiens que la meilleure solution, c'est d'utiliser une listview doublebuffered.

[franticfranz]

Bonjour,

Pour se débarrasser de ce scintillement :

Placer ce code juste avant la définition de votre "Public Class Form1" (en supposant que votre formulaire s'appelle form1):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Imports System.Reflection
 
Public Module ExtensionMethods
 
    Public Sub DoubleBufferedLV(ByVal lv As ListView, ByVal setting As Boolean)
        Dim tlpType As Type = lv.[GetType]()
        Dim pi As PropertyInfo = tlpType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
        pi.SetValue(lv, setting, Nothing)
    End Sub
 
End Module

Ensuite, dans l'évènement Form1.Load(), ajouter ceci :

Code :

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

        ExtensionMethods.DoubleBufferedLV(Listview1, True)

Remplacez évidemment Listview1 par le nom de votre Listview.

[Heilji]

Bonjour,

Pour se débarrasser de ce scintillement :

Placer ce code juste avant la définition de votre "Public Class Form1" (en supposant que votre formulaire s'appelle form1):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Imports System.Reflection
 
Public Module ExtensionMethods
 
    Public Sub DoubleBufferedLV(ByVal lv As ListView, ByVal setting As Boolean)
        Dim tlpType As Type = lv.[GetType]()
        Dim pi As PropertyInfo = tlpType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
        pi.SetValue(lv, setting, Nothing)
    End Sub
 
End Module

Ensuite, dans l'évènement Form1.Load(), ajouter ceci :

Code :

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

        ExtensionMethods.DoubleBufferedLV(Listview1, True)

Remplacez évidemment Listview1 par le nom de votre Listview.

j'ai effectivement utilisé ta solution ça fonctionne , mais cette méthode empêche l'utilisation graphique du listview :'( mais ça ne clignote plus, je pense qu'on approche de quelque chose ^^.

[Mario Rousson]

100/100 résolu merci beaucoup