1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Control
  5. Classer les elements d'une listbox par ordre alphabetique

Classer les elements d'une listbox par ordre alphabetique

Soyez le premier à donner votre avis sur cette source.

Vue 5 271 fois - Téléchargée 498 fois

Télécharger le projet
Commenter

Description

bon on m'a demandé des commentaires..j en donne pas de pb..

Source / Exemple : 


Public Function ClAsserlist(listbox_a_classer As ListBox)
'declarations des données ki serons utilisé ulterieurement...
Dim tbl(0 To 99)
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim e As Integer
Dim t As Integer
Dim d As Integer
'la boucle passe tous les elements de la list en revu.
For a = 0 To listbox_a_classer.ListCount
'format c pour que tous soit en majuscule
'je place ds le tableau tous les membres de la listbox
tbl(a) = Format(listbox_a_classer.List(a), ">")
DoEvents
Next a
'j'efface tous les elements de la liste
listbox_a_classer.Clear
'le tbl servira + tard pour le classement
'il va de 64 a 90 car c la valeur des 
'<> caracteres majuscule..
'32 represente l'espace
Dim nouv(32 To 90, 1 To 99)

For c = 0 To 99
'cherche le premier membre ou il y 
'a quelque chose ds le tableau et donne sa valeur
'a c
If tbl(c) = "" Then c = c - 1: Exit For

Next c

For d = 0 To c
For t = 1 To 99

If nouv(Asc(tbl(d)), t) = "" Then nouv(Asc(tbl(d)), t) = tbl(d): Exit For

Next t

Next d
Dim ec As Integer
ec = 0
For e = -33 To 25
For tb = 1 To 99
If nouv(65 + e, tb) <> "" Then listbox_a_classer.AddItem nouv(65 + e, tb), ec: ec = ec + 1
If nouv(65 + e, tb) = "" Then Exit For
Next tb

Next e
End Function

Conclusion :


voila s'il manque des excplications pas de pb...
;-)
bon ben voila ca me parait pas trop dur mais si vous avez un pb ou juste une question sur le fonctionnement du code n'esitez pas a la posée
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
cs_Mins Messages postés 9 Date d'inscription dimanche 30 mars 2003 Statut Membre Dernière intervention 28 mai 2009
24 déc. 2003 à 12:01
Surtout que la propriété sorted des listbox a priori n'existe pas partout... moi, en tous les cas, je ne la trouve po... même po dans l'aide... :-þ
Morricon Messages postés 41 Date d'inscription lundi 23 décembre 2002 Statut Membre Dernière intervention 1 mars 2007
5 nov. 2003 à 15:17
Super !

J'avais justement besoin de faire un trucs dans ce genre... Cela m'évite de le réecrire !

Après 2 ou 3 modifs car je dois les classer sous 3 / 4 critères différents et le tour est joué .

Merci et bonne prog.

Note pour ceux qui pense à la propriété Sorted d'une listbox : Cela n'arrange pas forcément les bidons si, comme moi vous devez classer des éléments selon plusieurs critères.
De plus, sur quel critères s'appuie cette propriété : Le premier ? Possible mais ce n'est pas toujours le top .
ADN733R Messages postés 63 Date d'inscription mardi 15 mai 2001 Statut Membre Dernière intervention 14 mai 2004
12 août 2002 à 17:13
y a pas une propriété sorted sur les listes???????????????
sebrs1
23 août 2001 à 14:04
c bien joli tout sa mais tu sais, tu T cassé le cul pour rien car
1er : ton code ne classe que par rapport au premier caractere , sa veut dire que sa reste encore un peu mélangé
et 2eme : il suffit tout simpleement, mais alors vraiment simplement de mettre la propriété sorted du listbox a true et le tour est joué!
mais autrement, si c toi qui a fait sa, t'as bien bossé
Technics_addict
20 juin 2001 à 13:04
Avec des commentaires, ça aiderais pour comprendre mais c'est super, BRAVO! (je cherchais depuis un moment un truc comme ça).
Afficher les 7 commentaires
S'inscrire maintenant

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.

Du même auteur (POLYPHAGE)