problème de méthode remove

salut,j'ai une petite prob en prog vb.net.
j'ai deux listBox et je veux ajouter les éléments séléctionnés en listBox1 à listBox2 et supprimer les éléments ajoutés de listBox1.
j'écris le code suivant:

Code:

---

1 2 3 4 5

For i as integer =0 to listBox1.selectedIndices.count-1 listBox2.items.add(listBox1.slectedItems.item(i)) listBox1.items.remove(listBox1.selectedItems.item(i)) Next

---

mais ce code ne donne rien il ajoutes les éléments séléctionnés seulement.

Merci à tous le programmeurs.

Salut,

As-tu essayé

Code:

---

1 2 3 4

For i as integer =0 to listBox1.selectedIndices.count-1 listBox2.items.add(listBox1.items(i)) listBox1.items.remove(listBox1.items(i)) Next

---

Petit conseil, édite ton premier post et :tagcode:

Gwendal

Déjà le problème avec ton code c'est qu'au cours du déroulement de ta boucle, tu modifies l'élément "source" (listbox1.selecteditems()).
Je pense qu'en faisant comme tu l'as codé, tu risques de ne récupérer qu'un élément sur deux, voire "n'importe quoi", avec peut-être un dépassement de la plage d'indices.

Essaye ça :

Code:

---

1 2 3 4

Listbox2.Items.AddRange(ListBox1.SelectedItems) For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1 ListBox1.Items.RemoveAt(ListBox1.SelectedIndices.Item(i)) Next

---

(Utiliser la boucle à l'envers sinon tu auras quelques surprises !)

salut,j'ai une petite prob en prog vb.net.
j'ai deux listBox et je veux ajouter les éléments séléctionnés en listBox1 à listBox2 et supprimer les éléments ajoutés de listBox1.
j'écris le code suivant:

Code:

---

1 2 3 4

For i as integer =0 to listBox1.selectedIndices.count-1 listBox2.items.add(listBox1.slectedItems.item(i)) listBox1.items.remove(listBox1.selectedItems.item(i)) Next

---

mais ce code ne donne rien il ajoutes les éléments séléctionnés seulement.

Merci à tous le programmeurs.

merci

merci MR mes votre méthode ne marche pas car :la fonction addRange accepte comme argument une collection.
As_tu un autre solution et merci?

Effectivement, ça ne marche pas (et je trouve ça dommage :) ).
Donc pour remplacer AddRange, on fait une boucle :

Code:

---

1 2 3 4 5 6 7

Dim i As Integer For i = 0 To ListBox1.SelectedItems.Count - 1 ListBox2.Items.Add(ListBox1.SelectedItems.Item(i)) Next For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1 ListBox1.Items.RemoveAt(ListBox1.SelectedIndices.Item(i)) Next

---

Et ça, ça fonctionne.

Merci Mr.BassBeat et ça fonctionne bien.

Si ton Pb est résolu pense à mettre ton poste en résolu.

ça évite de lire le post avant de s'apercevoir que finalement le pb est résolu.

Merci