Comment lire une multisélection de listBox ?

Bonjour,

Comment lire une multisélection de listBox ?

J'ai un peu essayé plein de combinaisons, mais ça ne donne rien, en fait je cherche à lire quels sont les items éventuellement sélectionnés dans une listbox multisélection, exemple (qui est accepté mais plante a l'exécution) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For i = 0 To ListBox2.Items.Count - 1 If ListBox2.Items(i).SelectedIndex = True Then ListBox1.Items.Add(ListBox2.Items(i)) End If Next i   ListBox2.Items(i) is SelectedIndex = True ListBox2.Items(i) is SelectedIndex ListBox2.Items(i) = SelectedIndex ListBox2.Items.SelectedIndex(i) = True

---

En VB6 c'est :

Code:

---

If List1.Selected(i)

---

Mais c'est à mon avis pas assez tortueux pour vbNet

Ben... merci à celui qui aura la clef du mystère ?
.

Yo!

Essaye sa:

Code:

---

ListBox2.GetItemChecked(i) = True

---

Citation:

---

Envoyé par Chapeau_Bas

Yo!

Essaye sa:

Code:

---

ListBox2.GetItemChecked(i) = True

---

---

Bonjour,
Merci... mais... perdu !

Code:

---

1 2 3 4 5 6

For i = 0 To ListBox2.Items.Count - 1 If ListBox2.GetItemChecked(i) = True Then ListBox1.Items.Add(ListBox2.Items(i)) End If Next i

---

Il n'en veut pas, il me dit que Get... n'est pas un membre de Listbox...

Ah oui, en effet, je me suis trompé. Toutes mes excuses.

Ce code fonctionne pour un composant "CheckedListBox", et non un "Listbox".
Pour la multi-sélection je préfère ce composant qui permet de visualiser simplement les éléments sélectionnés.

Je vais voir si je trouve dans le cas d'un Listbox.

Je réédite:

Code:

---

1 2 3

If ListBox2.GetSelected(i) = true then [...] End If

---

Est-ce mieux?

Citation:

---

Envoyé par Chapeau_Bas

Ah oui, en effet, je me suis trompé. Toutes mes excuses.

Ce code fonctionne pour un composant "CheckedListBox", et non un "Listbox".
Pour la multi-sélection je préfère ce composant qui permet de visualiser simplement les éléments sélectionnés.

Je vais voir si je trouve dans le cas d'un Listbox.

---

Suite,

Ah misère, un vrai cirque ce vbNet, j'ai encore fait quelques essais infructueux :

Code:

---

1 2 3 4

If ListBox2.SelectedItems(i) Then If ListBox2.SelectedIndices(i) = True Then If ListBox2.GetItemChecked(i) = True Then

---

Parfois il me dit (car il parles), que ce n'est pas du boolean mais du texte, je n'y comprends rien à ce machin, je cherche si une sélection est réalisée oui/non c'est bien du boolean...

En plus le nombre de combinaisons avecs items ou pas, avec select quelque chose et avec true ou pas, ça fait de dizains de dizaines de combinaisons, en tirant au sort on a autant de chance...

Bref...

Ah mince, j'ai réédité pour rien au dessus...

Code:

Code:

---

1 2 3

If ListBox2.GetSelected(i) = true then [...] End if

---

Est-ce mieux?

Citation:

---

Envoyé par Chapeau_Bas

Ah mince, j'ai réédité pour rien au dessus...

Code:

Code:

---

1 2 3

If ListBox2.GetSelected(i) = true then [...] End if

---

Est-ce mieux?

---

Suite (ter)...

Ah, "chat marche" comme disent les chats, tu es un génie génial, fallait trouver... ou savoir, ça serait à mettr en FAQ ça !

Code:

---

1 2 3 4

For i = 0 To ListBox2.Items.Count - 1 If ListBox2.GetSelected(i) = True Then MsgBox(i & VbLf & "sélectionné") Next i

---

Merci encore :ccool:

Salut,

Et pourquoi pas ça :

Code:

---

1 2 3

For Each i As Integer In Me.ListBox1.SelectedIndices MsgBox(i & vbLf & "sélectionné") Next

---

Ca marche aussi avec :

Code:

---

1 2 3

For Each Item As Object In Me.ListBox1.SelectedItem '... Next

---

Bonjour

Comme quoi tous les chemins mènent à Rome...

Solution la plus VB6

Code:

---

1 2 3 4

For i = 0 To ListBox2.Items.Count - 1 If ListBox2.GetSelected(i) = true then ListBox2.Items.Add(ListBox1.SelectedItems(i)) Next i

---

Solution la plus VB NET

Code:

---

1 2 3 4

For i As Integer = 0 To ListBox1.SelectedItems.Count - 1 ListBox2.Items.Add(ListBox1.SelectedItems(i)) Next

---

Solution la plus VBA

Code:

---

1 2 3 4

For i = 0 To ListBox2.Items.Count - 1 If ListBox2.GetSelected(i) = True Then MsgBox(i & VbLf & "sélectionné") Next i

---

Si quelqu'un y a accès, ce serait bien de mettre ça en F.A.Q car point je ne l'ai trouvé, ce qui aurait semblé être le minimum...

Je préfère la solution VB, la plus logique par rapport à l'ancien code, on a déjà dans la liste une collection d'items, les parcourir directement me semble assez cartésien et conservateur du principe...

Merci à tous :ccool:

La plus propre:

Code:

---

listBox2.Items.AddRange(listBox1.SelectedItems.Cast(Of Object)().ToArray())

---

Mais bon, c'est dans la doc du ListBox, pas sur que ca mérite une entrée de FAQ

Citation:

---

Envoyé par Nathanael Marchand

La plus propre:

Code:

---

1 2	listBox2.Items.AddRange(listBox1.SelectedItems.Cast(Of Object)().ToArray())

---

Mais bon, c'est dans la doc du ListBox, pas sur que ca mérite une entrée de FAQ

---

Bonjour,

La plus mystique tu veux dire, la plus "C"

Recomposition de l'INVOLUTION :

Code:

---

1 2 3

List1.Selected(i) listBox2.Items.AddRange(listBox1.SelectedItems.Cast(Of Object)().ToArray())

---

Hum...