Discussion :

[Invité]

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

[-N4w4k-]

Salut,

Essaie ça:

Code :

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

ListBox2.Items.AddRange(ListBox1.SelectedItems)

[Invité]

non ca marche pas

[-N4w4k-]

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


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

Code :

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

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

[Invité]

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

[-N4w4k-]

Ok.

Marque ça alors:

Code :

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

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)

[Invité]

merciiiiiiiiiiiiiiiiiiiiii ca fonctionne

[-N4w4k-]

De rien ^^

[Invité]

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

[-N4w4k-]

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

Comme ça:

Code :

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

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

++

[Invité]

merciiiiiiiiiiiiiiiiiiiii beaucoup

[thibboss29]

Ok.

Marque ça alors:

Code :

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

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 !

[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 .