WDForge.org - Forums

Re: Besoin d'aide Listebox

Sujet: Re: Besoin d'aide Listebox
par polux sur 19/6/2006 14:15:25

Bonjour,

voici un bout de code permettant d'ajouter les éléments sélectionnés de la liste 1 vers la liste 2...

i est un entier = ListeSelectOccurrence(LISTE_1)
j est un entier = 1
k est un entier = ListeSelect(LISTE_1)
resRech est un entier

TANTQUE j <= i
  resRech=ListeCherche(LISTE_2,LISTE_1[k]..ValeurAffichée)
  SI resRech = -1 ALORS
    ListeAjoute(LISTE_2,LISTE_1[k]..ValeurAffichée)
  FIN

  j++
  ListeSelectMoins(LISTE_1,k)
  k = ListeSelect(LISTE_1)
	
FIN

ListeSelectPlus(LISTE_1,1)