1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Trucs & Astuces
  5. Tri des items de listview (date, numérique ou perso)

Tri des items de listview (date, numérique ou perso)

Soyez le premier à donner votre avis sur cette source.

Vue 11 789 fois - Téléchargée 1 180 fois

Télécharger le projet
Commenter

Description

Une petite source qui montre comment trier efficacement (et facilement)
les colonnes de vos ListView.

Une seule ligne a ajouter pour qu'enfin vous puissiez trier les colonnes de numériques, de dates... ou appliquer un tri personnalisé (nécessite que vous modifiez le code du module)
Certains me diront que la propriété Sorted est là pour ça...
oui, sauf que celle-ci effectue un tri par ordre alphabétique:
(0 <1 <10 <11 <2 <20 ...)

Encore une API mise a portée de VB. On demande simplement a effectuer le tri des elements. Windows appelle ensuite notre fonction de tri perso, en nous indiquant une paire d'elements a tester.

tout ce que nous avons a faire, c'est renvoyer :

-1 => premier element a placer avant le deuxieme
0 => elements identiques
1 => second element a placer avant le premier

Source / Exemple : 


Private Sub HandleColumnClick(ByRef voListView As ListView, ByRef voColumnHeader As ColumnHeader, Optional voImageList As ImageList)
Dim oColumn As ColumnHeader
    If Not Nothing Is voListView And Not Nothing Is voColumnHeader Then
        With voListView
            '# A-t'on cliqué sur la colonne sur laquelle le tri est déjà effectué ?
            If .SortKey = voColumnHeader.Index - 1 Then
                '# en ce cas... on inverse le tri
                .SortOrder = 1 - .SortOrder
            Else
                '# tri croissant sur la colonne cliquée
                .SortKey = voColumnHeader.Index - 1
                .SortOrder = lvwAscending
            End If
            Set .ColumnHeaderIcons = voImageList
            '# Si la liste est renseignée, on met a jour les icones
            If Not Nothing Is voImageList Then
                For Each oColumn In .ColumnHeaders
                    If oColumn Is voColumnHeader Then
                        '# les icones sont stockées ainsi dans l'imagelist:
                        '# 1=> ASC ; 2=>DESC
                        oColumn.Icon = .SortOrder + 1
                    Else
                        '# on supprime l'icone
                        oColumn.Icon = 0
                    End If
                Next oColumn
            End If
        End With
    End If
End Sub
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
PROTEUS91 Messages postés 156 Date d'inscription mardi 4 novembre 2003 Statut Membre Dernière intervention 28 décembre 2010
19 mai 2009 à 19:21
Je sais que c'est du chipotage mais on pourrai peut être ajouter une fleche vers le bas ou vers le haut dans la colonne ou on a cliqué.

Sinon, Code toujours aussi propre et qui va a l'essentiel !

Je plussois :p
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
19 mai 2009 à 19:30
pas faux, je mettrai ca demain.
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
20 mai 2009 à 09:10
Chose promise...
l'icones est moche, vite-faite sous paint... mais bon ^^

j'ai aussi nettoyé un peu le code.
yan35 Messages postés 185 Date d'inscription dimanche 29 juin 2003 Statut Membre Dernière intervention 20 juin 2013
10 juin 2009 à 00:25
Vraiment Super cette astuce. Grand Merci de la partager. 10/10
cs_FredT Messages postés 65 Date d'inscription mardi 18 février 2003 Statut Membre Dernière intervention 11 avril 2009
21 déc. 2009 à 18:09
slt. Bon code, simple et efficace, Marche bien en apparence, dans le sens du terme, mais y'a un gros hic en arrière plan.

Explication, Le texte et la mise en forme qui va avec (forecolor, bold ...) sont bel et bien triés quel que soit le type ou l'ordre: jusqu'à là pour l'affichage tout va bien. Quoique j'ai pas vérifier pour 'tooltip'.
Mais pour les properties 'index' (celui ci au pire pas grave), mais 'key' et 'tag', là ça devient extra embetant: y'a aucun trie la position reste identique à celle où l'item à été créé.
Généralement tag est utilisé pour conserver des infos masquées utile au prog et key ... ben... pour retrouver un item précis. Alors une utilisation un peu trop rapide a mis quelque peu la pagaille dans les données, le temps de m'en rendre compte.
Config d'utilisation : une appli Ms-Access 2003, elle tourne sur win XP pro (à jour), MSCOMCTL.OCX version 6.1.97.86
Une solution? ou est-ce ma config qui convient pas ?
Merci
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Renfield)