Trie de valeurs dans un combo

Soyez le premier à donner votre avis sur cette source.

Vue 4 518 fois - Téléchargée 473 fois

Description

vérifie s'il n'existe pas deux même valeurs dans un combo -> pour aider résultats dans un autre combo

Source / Exemple :


totale = Combo1.ListCount
Combo1.Text = Combo1.List(0)
Combo2.AddItem Combo1.Text
compt = 1
Combo1.Text = Combo1.List(compt)
Combo2.Text = Combo2.List(0)
nombre = 1
compteur = 0
Do While Not compt > totale
Do While Not compteur > nombre
Combo2.Text = Combo2.List(compteur)
If Combo1.Text <> Combo2.Text Then
compteur = compteur + 1
Else
GoTo Saut1
End If
Loop
Combo2.AddItem Combo1.Text
nombre = nombre + 1
Saut1:
compteur = 0
compt = compt + 1
Combo1.Text = Combo1.List(compt)
Loop

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_locust
Messages postés
34
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
29 octobre 2012

merci
je ne connais pas ces commandes mais je vais voir
Zylott
Messages postés
104
Date d'inscription
jeudi 25 juillet 2002
Statut
Membre
Dernière intervention
28 septembre 2006

Tu peux aussi mettre la propriété SORTED = TRUE


Encore plus rapide !!!!!!
BruNews
Messages postés
21042
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
18
SendMessage(hcmb, CB_FINDSTRINGEXACT, -1, ptrChaine);
100 fois + rapide.

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.