Listbox & ordre alphabetique

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 634 fois - Téléchargée 48 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
cs_scoubi
Messages postés
5
Date d'inscription
jeudi 23 janvier 2003
Statut
Membre
Dernière intervention
11 juin 2013

11 juil. 2012 à 14:08
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
cs_manou3010
Messages postés
2
Date d'inscription
mercredi 7 avril 2010
Statut
Membre
Dernière intervention
11 mai 2010

23 avril 2010 à 01:26
merci bi1
Galactus13
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
2 août 2009 à 02:37
10/10, merci bien pour cette fonction très simple !
imanemaftouh
Messages postés
5
Date d'inscription
jeudi 7 mai 2009
Statut
Membre
Dernière intervention
3 juillet 2009

9 mai 2009 à 20:26
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
pavid
Messages postés
5
Date d'inscription
jeudi 2 décembre 2004
Statut
Membre
Dernière intervention
27 octobre 2005

24 janv. 2009 à 20:37
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.