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
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
2 réponses
cs_lim
Messages postés
329
Date d'inscription
jeudi 20 novembre 2003
Statut
Membre
Dernière intervention
10 mai 2014
7
8 juin 2004 à 12:06
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
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
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
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 !
@+
Merci à toi LIM, j'espère que cette "Question/Réponse" servira à d'autres.
Bonne journée !
@+