IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Trier une listview


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Inscrit en
    Juillet 2007
    Messages
    433
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 433
    Par défaut Trier une listview
    Je veux trier ma listview en fonction du columnheader sur lequel je clique, n'y a-t-il pas moyen de récupérer l'index du columnheader plutot que son nom parce que ça c'est pas vraiment esthétique...

    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
    Sub Trier_List_View(LV As ListView, ByVal ColumnHeader As MSComctlLib.ColumnHeader)
    'TRIE UNE LISTVIEW EN FONCTION DE LA COLONNE CLIQUEE
        LV.SortOrder = lvwAscending
        Select Case ColumnHeader
            Case "ID"
                LV.SortKey = 0
            Case "Date"
                LV.SortKey = 1
            Case "Client"
                LV.SortKey = 2
            Case "Contact"
                LV.SortKey = 3
            Case "Priorité"
                LV.SortKey = 4
            Case "Enr. par"
                LV.SortKey = 5
            Case "Dépt."
                LV.SortKey = 6
            Case "Dest."
                LV.SortKey = 7
            Case "Intervenant"
                LV.SortKey = 8
            Case "Statut"
                LV.SortKey = 9
            Case "Commentaires"
                LV.SortKey = 10
            Case Else
                Exit Sub
        End Select
        LV.Sorted = True
    End Sub
    Et y'a pas moyen que ça se fasse automatiquement sinon ? ça m'arrangerait !

    Y'a rien dans la FAQ sur les listview !

  2. #2
    Expert confirmé
    Avatar de ThierryAIM
    Homme Profil pro
    Inscrit en
    Septembre 2002
    Messages
    3 673
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Septembre 2002
    Messages : 3 673
    Par défaut
    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
    Private Sub List1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
        Static ColHead As String
        If ColumnHeader.Text = ColHead Then
            If List1.SortOrder = lvwAscending Then
                List1.SortOrder = lvwDescending
            Else
                List1.SortOrder = lvwAscending
            End If
        Else
            List1.SortOrder = lvwAscending
        End If
        List1.SortKey = ColumnHeader.Index - 1
        List1.Sorted = True
        ColHead = ColumnHeader.Text
    End Sub

  3. #3
    Membre éclairé
    Inscrit en
    Juillet 2007
    Messages
    433
    Détails du profil
    Informations forums :
    Inscription : Juillet 2007
    Messages : 433
    Par défaut
    Nikel merci je vais essayer de trouver si y'a moyen d'afficher la petite flèche dans l'en tête de la colonne et ce sera parfait merci bcp.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 1
    Dernier message: 23/02/2015, 09h36
  2. [Débutant] Comment trier une listview
    Par Oh!Tofocus dans le forum VB.NET
    Réponses: 7
    Dernier message: 04/02/2012, 20h52
  3. Comment trier une listview
    Par samgan dans le forum VB.NET
    Réponses: 0
    Dernier message: 28/04/2010, 18h14
  4. Trier une Listview (Colonne numérique/ Date)
    Par Marc_27 dans le forum Windows Forms
    Réponses: 3
    Dernier message: 07/04/2009, 17h53
  5. Réponses: 7
    Dernier message: 28/01/2007, 11h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo