copier le contenu d'une listbox dans une autre

Version imprimable

04/05/2012, 13h28
Invité

copier le contenu d'une listbox dans une autre

bonjour , je voudrais savoir comment faire pour copier les éléments sélectionnés dans une listbox 1 dans une autre listebox2 , sous vb 2010
merci
04/05/2012, 14h06
-N4w4k-

Salut,

Essaie ça:

Code:

ListBox2.Items.AddRange(ListBox1.SelectedItems)
04/05/2012, 14h16
Invité

Re

non ca marche pas

Oui c'était trop simple... (j'avais pas essayé :()

Essaie plutôt ça (là j'ai essayé :D)
Code:

1 2 3 Dim items(ListBox1.SelectedItems.Count - 1) As Object ListBox1.SelectedItems.CopyTo(items, 0) ListBox2.Items.AddRange(items)

04/05/2012, 15h53
Invité

re

ca marche pas le probleme c'est que les valeurs qui s'affichent dans la listbox2 c'est system.data.datrow

Ok.

Marque ça alors:

Code:

1
2
3
4
5
6
        ListBox2.DisplayMember = ListBox1.DisplayMember 'colonne de la datatable à afficher quand la datasource est une datatable
        ListBox2.ValueMember = ListBox1.ValueMember 'pas obligé..
 
        Dim items(ListBox1.SelectedItems.Count - 1) As Object
        ListBox1.SelectedItems.CopyTo(items, 0)
        ListBox2.Items.AddRange(items)

04/05/2012, 16h04
Invité

Re

merciiiiiiiiiiiiiiiiiiiiii ca fonctionne
04/05/2012, 16h06
-N4w4k-

De rien ^^
04/05/2012, 16h09
Invité

re

bon si vous permettez je veux quand je clique sur le bouton ajouter pour copier les items depuis listbox1 vers listbpx2;
je veux que les items dans la listbox1 ne soient plus sélectionnés
comment faire et merci
04/05/2012, 16h12
-N4w4k-

Citation:

les items dans la listbox1 ne soient plus sélectionnés

Comme ça:

Code:

ListBox1.SelectedItem = Nothing

N'ai pas peur de chercher un peu surtout ^^
Quand tu tape "ListBox1." il y a l'autocomplétion qui t'indique tout ce que tu peux faire. Si tu tape "ListBox1.select", tu as tout qui concerne la sélection (c'est comme ça que j'ai trouvé la solution à ton problème..).

++
04/05/2012, 16h15
Invité

re

merciiiiiiiiiiiiiiiiiiiii beaucoup

Citation:

Envoyé par -N4w4k-

Ok.

Marque ça alors:

Code:

1
2
3
4
5
6
        ListBox2.DisplayMember = ListBox1.DisplayMember 'colonne de la datatable à afficher quand la datasource est une datatable
        ListBox2.ValueMember = ListBox1.ValueMember 'pas obligé..
 
        Dim items(ListBox1.SelectedItems.Count - 1) As Object
        ListBox1.SelectedItems.CopyTo(items, 0)
        ListBox2.Items.AddRange(items)

Juste un petit souci: il attend forcement quelque chose après le "CopyTo" non ?

D'avance merci !

22/10/2016, 19h03
rv26t

bonjour,

non, le "copyto" s'applique sur la collection "SelectedItems" (il faut donc un ou des élément(s) sélectionné(s) dans la listebox sinon il ny a rien), et rempli le tableau "items" passée en premier paramètre .