VB.net : Listbox monter ou descendre l'élément sélectionné

Signaler
Messages postés
2
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
9 juin 2004
-
Messages postés
2
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
9 juin 2004
-
Hello !
Je suis tout neuf et commence seulement a aborder VB.NET
Beaucoup de choses sont encore pour moi inconnues.

Quelqu'un aurait t'il une idée sur comment faire monter ou descendre d'un cran un élément sélectionné dans une Listbox reliée à un Dataset.

Merci par avance !!!

2 réponses

Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
4
Si ta listbox est relié à un dataset tu ne peux pas modifer l'ordre des items.

Si tu veux le faire il faut remplir la listbox "à la main"
C'est à dire, compter le nombre d'éléménts du dataset, et utiliser listbox1.items.add(...) pour remplir la listbox

pour faire monter d'un cran un élément
=> récupérer l'index, récupérer l'élément, supprimer l'élément, l'ajouter à un index différent

private sub Monte()
dim i as integer
dim it as object
'Récupère l'index
i=listbox1.selectedindex()
'Vérifie qu'un index est sélectionné et que ce ne soit pas le 1er
if i<>-1 and i<>0
'Récupération de l'objet
it=listbox1.items.item(i)
'Suppression de l'item
listbox1.items.removeat(i)
'Ajout de l'item à un nouvel index
listbox1.items.insert(i-1,it)
end if
end sub

private sub Descend()
dim i as integer
dim it as object
'Récupère l'index
i=listbox1.selectedindex()
'Vérifie qu'un index est sélectionné et que ce ne soit pas le dernier
if i<>-1 and i<>listbox1.items.count-1
'Récupération de l'objet
it=listbox1.items.item(i)
'Suppression de l'item
listbox1.items.removeat(i)
'Ajout de l'item à un nouvel index
listbox1.items.insert(i+1,it)
end if
end sub

@+
LIM
Messages postés
2
Date d'inscription
vendredi 28 mai 2004
Statut
Membre
Dernière intervention
9 juin 2004

Je suis impressionné par la rapidité et la précision de cette réponse.

Merci à toi LIM, j'espère que cette "Question/Réponse" servira à d'autres.

Bonne journée !
@+