Exemple de manipulation de données entre deux listbox : ajout, déplacement (version béta) :)

Soyez le premier à donner votre avis sur cette source.

Vue 4 912 fois - Téléchargée 852 fois

Description

Juste un petit exemple pour montrer à certains qui galèrent comme moi, comment manipuler les données entres deux listbox
je travaille toujours sur la sources car il reste encore des erreurs (notamment dans les déplacements verticaux dans la list2 (quand l'item arrive en haut elle redescend en dernier ou çà plante )

mode d'emploi :
sélectionner l'item a déplacer
ne pas trop râler si çà bug
laisser votre avis et quelques conseils si le coeur vous en dis :)

MAJ : résolution des problèmes de déplacements d'item

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Darkukai
Messages postés
38
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
29 mai 2006
-
Je suis content que çà serve a des galériens dans mon genre ;)
cs_buzzo
Messages postés
30
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
30 novembre 2006
-
Merci bien j'ai trouvé une solution grâce à toi !
cs_Snurf
Messages postés
4
Date d'inscription
lundi 25 mars 2002
Statut
Membre
Dernière intervention
16 juin 2004
1 -
merci ta source est exactement ce que je cherchais. Simple et facilement intégrable 1000x merci :-)
cs_Darkukai
Messages postés
38
Date d'inscription
vendredi 27 septembre 2002
Statut
Membre
Dernière intervention
29 mai 2006
-
j'ai résolu le problème dans les déplacements verticaux en rajoutant un test tout con :
pour monter un item

If List2.ListIndex <> 0 Then
list2text = List2.List(List2.ListIndex)
list2textindex = List2.ListIndex
List2.List(list2textindex) = List6.List(list2textindex - 1)
List2.List(list2textindex - 1) = list2text
List2.Selected(list2textindex - 1) = True
End If

pour le descendre le test est

If List2.List(list2textindex + 1) <> "" Then
List2.List(list2textindex) = List2.List(list2textindex + 1)
List2.List(list2textindex + 1) = list2text
List2.Selected(list2textindex + 1) = True
End If

voila

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.