déplacer une ligne dans une listboxRésolu

Question

Bonjour
 voici mon problème: j'ai une listbox dans ma page dans laquelle je fais afficher le contenu d'un fichier texte.
Ce que je voudrais pouvoir faire c'est ajouter deux petites fleches en haut et en bas me permettant de déplacer un élément sélectionné dans ma listbox et je n'est pas trop d'idée de comment faire.
Merci d'avance

neg03 · Accepted Answer

En faite je me suis aider de cette exemple est tout fonctionne très bien :
http://www.vbfrance.com/codes/LISTBOX-SUPRESSION-PROPRE-ENREGISTREMENT-CHARGEMENT-DANS-FICHIER-MONTRER_32550.aspx

Renfield · Answer

faut le supprimer et le réajouter (regardes le deuxième parametre de AddItem)

LIBRE_MAX · Answer

Bonjour, 
un exemple complet est dans:
Outils/Ajouter un jeu de controles/Déplacement entre contrôles ListBox

<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
/PRE>

Renfield · Answer

pas livré avec toutes les versions, LIBRE_MAX

LIBRE_MAX · Answer

Ah bon !
Je pourrais alors le mettre à disposition en le postant 
par exemple.Mais je ne sais pas si je suis en droit de le faire.

<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
/PRE>

jmfmarques · Answer

Bonjour,

Moi (et je ne sais pas pourquoi), je préfèrerais faire riper par substitution...

genre (ici un exemple pour faire remonter vers le haut à l'aide d'un bouton de commande :

Private Sub Command1_Click()
  toto = List1.ListIndex
  If toto = 0 Then Exit Sub
  titi = List1.List(toto)
  List1.List(toto) = List1.List(toto - 1)
  List1.List(toto - 1) = titi
  List1.Selected(toto - 1) = True
End Sub

ceci dit : je suis curieux et voudrais connaître l'intérêt de la "chose" ...

Renfield · Answer

pas faux, c'est vrai que l'on peut se contenter de cela.

gaffe aussi à tester la valeur -1 sinon, cata

LIBRE_MAX · Answer

pas aussi mais en même temps If toto <= 0 Then Exit Sub

... Y'en a même qui disent qu'ils l'ont vu voler. /PRE>

LIBRE_MAX · Answer

c' est vrai aussi que pour le déplacement vers le bas il faudra tester , en deux temps,
et sur -1 et sur ListCount-1

<hr />
... Y'en a même qui disent qu'ils l'ont vu voler.
/PRE>

Déplacer une ligne dans une listbox

9 réponses

Votre réponse

Discussions similaires