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

Nextforone Messages postés 2 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 9 juin 2004 - 8 juin 2004 à 10:07
Nextforone Messages postés 2 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 9 juin 2004 - 9 juin 2004 à 09:01
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

cs_lim Messages postés 329 Date d'inscription jeudi 20 novembre 2003 Statut Membre Dernière intervention 10 mai 2014 5
8 juin 2004 à 12:06
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
0
Nextforone Messages postés 2 Date d'inscription vendredi 28 mai 2004 Statut Membre Dernière intervention 9 juin 2004
9 juin 2004 à 09:01
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 !
@+
0
Rejoignez-nous