Trie de valeurs dans un combo

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

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 (cs_locust)