Trier un listview

Version imprimable

Voir 40 message(s) de cette discussion en une page

Trier un listview

Bonjour,

j'utilise un bout de code récuperé sur FAQ pour trier les columns de mon listview, le code est fonctionnel dans le sens ou il n'y a pas d'erreur. Mon problème c'est que ma column contiens des nombres et les négatif reste confondu dans la liste.

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
Public Class ListViewItemComparer
    Implements IComparer
    Private col As Integer
    Private sortOrder As SortOrder
 
    Public Sub New()
        col = 0
        sortOrder = Windows.Forms.SortOrder.Ascending
    End Sub
 
    Public Sub New(ByVal column As Integer)
        col = column
        sortOrder = Windows.Forms.SortOrder.Ascending
    End Sub
 
    Public Sub New(ByVal column As Integer, ByVal s As SortOrder)
        col = column
        sortOrder = s
    End Sub
 
    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
        If sortOrder = Windows.Forms.SortOrder.Ascending Then
            Return String.Compare(CType(x, ListViewItem).SubItems(col).Text, CType(y, ListViewItem).SubItems(col).Text)
        Else
            Return String.Compare(CType(y, ListViewItem).SubItems(col).Text, CType(x, ListViewItem).SubItems(col).Text)
        End If
 
    End Function
End Class

l'ajustement à faire se situe surment au niveau de la function Compare mais j'aurais besoin d'aide pour l'exercice.

merci

21/11/2011, 02h22
tomlev

Citation:

les négatif reste confondu dans la liste.

C'est à dire ?

A mon avis le problème c'est que tu compares le texte des ListViewItems, ça fait donc une comparaison alphabétique, avec "100" qui est inférieur à "20"
Il faut convertir en nombre le texte de tes ListViewItems si tu veux une comparaison numérique.
21/11/2011, 02h30
Mario Rousson
dans ma columns 2.50,-2.25,2.20
au lieu de 2.50,2.20,-2.25

:cry:

Edit
Pourtant je fait des test
Code:

1 2 3 Dim A As String = "-1" Dim B As String = "1" MessageBox.Show(String.Compare(A, B).ToString)
et ça fonctionne
21/11/2011, 03h16
tomlev

Bizarre.. tu es sûr que ta méthode Compare est bien appelée ? comment as-tu "branché" la classe ListViewItemComparer sur le ListView ?

j'ai essayé plusieurs variante mais toujour le même résultatmais selon l'exemple j'ai fait

Code:

1
2
3
4
5
6
7
8
9
Private Sub ListVScan_ColumnClick(ByVal sender As Object, ByVal e As System.Windows.Forms.ColumnClickEventArgs) Handles ListVScan.ColumnClick
        If Me.ListVScan.Sorting = SortOrder.Ascending Then
            Me.ListVScan.Sorting = SortOrder.Descending
        Else
            Me.ListVScan.Sorting = SortOrder.Ascending
        End If
        Me.ListVScan.ListViewItemSorter = New ListViewItemComparer(e.Column, Me.ListVScan.Sorting)
 
    End Sub

21/11/2011, 14h12
Mario Rousson

Je viens de voir que sur le FAQ l'auteur dit ceci

Citation:

Remarque : J'effectue ici une comparaison de chaines, il faudra implémenter différement si on compare des nombres par exemple.

et je ne sait pas quoi faire
21/11/2011, 15h21
tomlev

Citation:

Envoyé par Mario Rousson

j'ai essayé plusieurs variante mais toujour le même résultat

OK, mais as-tu vérifié que ta méthode Compare est bien appelée ? Mets un breakpoint dedans pour voir

Citation:

Envoyé par Mario Rousson

Je viens de voir que sur le FAQ l'auteur dit ceci et je ne sait pas quoi faire

Bah oui c'est ce que je t'avais dit... Il faut convertir le texte des ListViewItems en nombre (avec Int.Parse ou Double.Parse par exemple)
21/11/2011, 15h57
Mario Rousson

oui c'est ce que je croix aussi que c'est un problème alphabétique au lieu de numérique, de la je fais comment pour changer la façon de trier.

j'ai essayé

Code:

Return String.Compare(Double.Parse(CType(x, ListViewItem).SubItems(col).Text), Double.Parse(CType(y, ListViewItem).SubItems(col).Text))

et c'est une erreur
21/11/2011, 16h20
Mario Rousson

histoire de trouver l'erreur j'ai essayé de modifier la chaine récupéré en decimal.

Code:

Dim Dbl1 As Decimal = (CType(x, ListViewItem).SubItems(col).Text)

et j'obtiens le message suivant

Citation:

L'exception System.InvalidCastException n'a pas été gérée
Message=La conversion de la chaîne "-9.09 %" en type 'Decimal' n'est pas valide.
Source=Microsoft.VisualBasic
StackTrace:
à Microsoft.VisualBasic.CompilerServices.Conversions.ToDecimal(String Value, NumberFormatInfo NumberFormat)
à Microsoft.VisualBasic.CompilerServices.Conversions.ToDecimal(String Value)
à BourseV3.ListViewItemComparer.Compare(Object x, Object y) dans C:\Users\Mario\documents\visual studio 2010\Projects\BourseV3\BourseV3\ListViewItemComparer.vb:ligne 23
à System.Windows.Forms.ListView.CompareFunc(IntPtr lparam1, IntPtr lparam2, IntPtr lparamSort)
à System.Windows.Forms.UnsafeNativeMethods.CallWindowProc(IntPtr wndProc, IntPtr hWnd, Int32 msg, IntPtr wParam, IntPtr lParam)
à System.Windows.Forms.NativeWindow.DefWndProc(Message& m)
à System.Windows.Forms.Control.DefWndProc(Message& m)
à System.Windows.Forms.Control.WndProc(Message& m)
à System.Windows.Forms.ListView.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
à System.Windows.Forms.UnsafeNativeMethods.SendMessage(HandleRef hWnd, Int32 Msg, IntPtr wParam, ListViewCompareCallback pfnCompare)
à System.Windows.Forms.ListView.Sort()
à System.Windows.Forms.ListView.set_ListViewItemSorter(IComparer value)
à BourseV3.ScanMarche.ListVScan_ColumnClick(Object sender, ColumnClickEventArgs e) dans C:\Users\Mario\Documents\Visual Studio 2010\Projects\BourseV3\BourseV3\ScanMarche.vb:ligne 541
à System.Windows.Forms.ListView.OnColumnClick(ColumnClickEventArgs e)
à System.Windows.Forms.ListView.WmNotify(Message& m)
à System.Windows.Forms.ListView.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
à System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
à System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
à System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
à System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
à Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
à BourseV3.My.MyApplication.Main(String[] Args) dans 17d14f5c-a337-4978-8281-53493378c1071.vb:ligne 81
à System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
à System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
à Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
à System.Threading.ThreadHelper.ThreadStart_Context(Object state)
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
à System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
à System.Threading.ThreadHelper.ThreadStart()
InnerException:
21/11/2011, 16h34
tomlev

Bah tu vois bien ce qui va pas, non ? Y a un signe "%" dans ta chaine, c'est pas un nombre valide... Enlève le signe "%" avant de convertir.
21/11/2011, 17h03
Mario Rousson

oui je sais et j'ai modifier le tout en dbl et ça fonctionne pas plus
21/11/2011, 17h23
Mario Rousson
vois le résultat que j'obtiens dans ce petit bout de code test
Code:

1 2 3 Dim A As String = "12.45" Dim B As String = "1.25" Console.WriteLine("A={0},B={1} SC= {2}", A, B, String.Compare(A, B))
Citation:

A=-12.45,B=1.25 SC= 1
A=12.45,B=1.25 SC= 1

Dans le premier exemple -12.45 est plus petit que 1.25 et le String.compare retourne 1, dans l'autre 12.45 est plus grand que 1.25 et le S.c. retourn encore 1 ...bizarre non
21/11/2011, 17h30
tomlev

Bah tu continues à comparer des chaines, je vois pas pourquoi tu t'attends à un résultat différent...
21/11/2011, 17h35
Mario Rousson

ok alors si je veux comparer des nombres String.compare n'est pas approprié?

Si oui comment faire alors ??

ok je crois que je comprend, si je veux pouvoir utiliser la function compare autant pour les nombres que pour les lettre je dois inclure dans ma function
un trypaste pour tester quel genre de donner je dois comparer ensuite c'est un jeu d'enfant de comparer deux double.

Citation:

Envoyé par Mario Rousson

ok alors si je veux comparer des nombres String.compare n'est pas approprié?

Bah comme son nom l'indique, String.Compare sert à comparer des chaines, pas des nombres...

Citation:

Envoyé par Mario Rousson

Si oui comment faire alors ??

Je te l'ai déjà dit : tu convertis les chaines en nombres, et tu compares les nombres. Par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare Dim dx As Decimal = Decimal.Parse(CType(x, ListViewItem).SubItems(col).Text); Dim dy As Decimal = Decimal.Parse(CType(y, ListViewItem).SubItems(col).Text); If sortOrder = Windows.Forms.SortOrder.Ascending Then Return dx.CompareTo(dy) Else Return dy.CompareTo(dx) End If End Function
(en modifiant éventuellement un peu la façon de convertir selon ce qu'il y a dans tes textes)

21/11/2011, 17h49
Mario Rousson

cool merci je travail la dessus

désolé je croyais que je pouvais utiliser String.compare ...je comprend tout maintenant merci
21/11/2011, 18h12
Mario Rousson

bon, ça fonctionne bien quand je met tout en double mais ça accroche si j'essai en decimal

La variable suivante ne passe pas

Code:

Dim dx As Decimal = Decimal.Parse(CType(x, ListViewItem).SubItems(col).Text)

et j'ai aussi essayé

Code:

Dim dx As Decimal = CType(x, ListViewItem).SubItems(col).Text

mais quand je transforme tout mon code en double

Code:

Dim Dx As Double = CType(x, ListViewItem).SubItems(col).Text

ça fonctionne bien.

merci TomLev j'ai avancé ...je travail la dessus
21/11/2011, 18h20
tomlev

Citation:

Envoyé par Mario Rousson

La variable suivante ne passe pas

Ca veut dire quoi "ne passe pas" ? Si on joue aux devinettes, ça peut durer longtemps...
Il y a une erreur ? Quelle erreur ?

En tous cas si c'est un problème de format, je ne vois pas pourquoi ça marcherait mieux en double...
21/11/2011, 18h21
Mario Rousson

pour incrire un decimal dans mon listeview je fait comme ça

Code:

LVI.SubItems.Add(CDbl(MaStr(10)).ToString("P"))

est-ce correct?

le problème c'est avec le signe %
21/11/2011, 18h23
tomlev

Citation:

Envoyé par Mario Rousson

pour incrire un decimal dans mon listeview je fait comme ça

Code:

LVI.SubItems.Add(CDbl(MaStr(10)).ToString("P"))

est-ce correct?

Y a aucun Decimal là dedans... tu prends une chaine, tu la convertis en Double, et tu la reconvertis en chaine avec le format "pourcentage". Comme je l'ai dit plus haut, pour reconvertir la chaine en double ou en décimal, enlève le signe "%" de la chaine.

Voir 40 message(s) de cette discussion en une page