VB6 Tri d'un ListView

Résolu
cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 - 6 juin 2007 à 12:58
cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 - 7 juin 2007 à 13:10
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

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
6 juin 2007 à 13:39
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
3
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
6 juin 2007 à 13:01
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
0
cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 4
6 juin 2007 à 13:16
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
0
cs_JeffC1977 Messages postés 926 Date d'inscription vendredi 10 novembre 2000 Statut Membre Dernière intervention 10 septembre 2010 4
7 juin 2007 à 13:10
Merci de ton aide très apprécié
0