VB6 Tri d'un ListView

Résolu
Signaler
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
-
Salut...

Petite question pour trier un ListView...
J'ai regarder sur le site et j'ai vu quelque code, mais je n'y arrive pas...

J'ai essayé ce code que j'ai pris dasns une discussion, mais ca fonctionne pas... Qu'est ce qu'il me manque pour que ca fonctionne ????

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)


objectListView2.SortKey = ColumnHeader.Index - 1


End Sub

Erreur d'exécution 424
Un objet est requis

Merci de votre aide...

4 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
y'a la propriété Sorted de ta listview, a mettre à True...

tiens, pour gestion du sens de tri...

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   If ColumnHeader.Index - 1 = ListView2.SortKey Then       ListView2.SortOrder IIf(ListView2.SortOrder lvwAscending, lvwDescending, lvwAscending)
   Else
       ListView2.SortKey = ColumnHeader.Index - 1
       ListView2.SortOrder = lvwAscending
   End If
End Sub , ----
By Renfield

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
il semble, Jeff, que ton listview s'appelle ListView2 et non objetListView2...

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView2.SortKey = ColumnHeader.Index - 1

End Sub

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
4
Salut Renfiel

J'ai essayé d'enlever le objet.... et ca marche pas... Je n'ai plus de message d'erreur c'est vrai mais il n'y a rien qui se tri... ???

Peux-tu voir d'ou provient l'erreur ??? Je dois rajouter du code....??
Et de cette facon:

Private Sub ListView2_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
ListView2.SortKey = ColumnHeader.Index - 1
End Sub

Je devrais trier n'importe quelle colonne ???

Merci d'avance
Messages postés
926
Date d'inscription
vendredi 10 novembre 2000
Statut
Membre
Dernière intervention
10 septembre 2010
4
Merci de ton aide très apprécié