Discussion :

[laaroussi1]

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 VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Gdal]

Salut,

As-tu essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Gwendal

[BassBeat]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !)

[laaroussi1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[laaroussi1]

merci

[laaroussi1]

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?

[BassBeat]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[laaroussi1]

Merci Mr.BassBeat et ça fonctionne bien.

[ricil78]

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