Listbox & ordre alphabetique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 475 fois - Téléchargée 47 fois

Contenu du snippet

voici un petit programme pour crée un ordre 'ALPHABETIQUE' dans listbox
sur vb6

Source / Exemple :


Public Sub ArrangeList(Liste As ListBox)
Dim Tbl$()
Dim Ntbl$()
Dim CH As Boolean
ReDim Tbl(Liste.ListCount - 1)
ReDim Ntbl(Liste.ListCount - 1)
mtb = Liste.ListCount - 1
For n = 0 To mtb
Tbl(n) = Liste.List(n)
Ntbl(n) = ""
Next n
Liste.Clear
For n = LBound(Tbl) To UBound(Tbl)
For a = LBound(Tbl) To UBound(Tbl)
If a >= n Then
If StrComp(Tbl(n), Tbl(a), vbTextCompare) = -1 Then
tx = Tbl(n)
Tbl(n) = Tbl(a)
Tbl(a) = tx
End If
End If
Next a
Next n
For n = UBound(Tbl) To LBound(Tbl) Step -1
Liste.AddItem Tbl(n)
Next n
End Sub

A voir également

Ajouter un commentaire

Commentaires

Messages postés
5
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
11 juin 2013

Plus simplement: pour reprendre le commentaire de imanemaftouh, lorsque vous cliquer sur une colonne celui passe de l'ascendant vert le descendant et inversement ! (faut changer le "ListBox" par le nom de votre listbox.

Private Sub ListBox_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)If ListBox.SortOrder lvwAscending Then ListBox.SortOrder lvwDescending Else ListBox.SortOrder = lvwAscending 'si Trie ASC alors DESC sinon ASC
ListBox.SortKey = ColumnHeader.Index - 1 'Sélectionne le numéro de l'entête de colonne
ListBox.Sorted = True 'Active le trie
End Sub
Messages postés
2
Date d'inscription
mercredi 7 avril 2010
Statut
Membre
Dernière intervention
11 mai 2010

merci bi1
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
10/10, merci bien pour cette fonction très simple !
Messages postés
5
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009

oui c'est utile,mais on peut faire un simple trie par bulle,ou on fesaisune seule bouttons ki nous fé 2 trie le premier a-z et l autre de z_a,simplement on utulise listbox.sorted
et apré on fai l algo de permutation la case dernier avec la premier l'avant dernier avec la 2,ém et ainssi d suite,comme si on clic la premier foi ça sera d z_a 2 eme clic d a_z et ainssi d suite
Messages postés
5
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
27 octobre 2005

Ce code m'a été utile

Merci
Afficher les 9 commentaires

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.