Discussion :

[Ehjoe]

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 :

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

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 :

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

If List1.Selected(i)

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

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

[Chapeau_Bas]

Yo!

Essaye sa:

Code :

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

ListBox2.GetItemChecked(i) = True

[Ehjoe]

Yo!

Essaye sa:

Code :

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

ListBox2.GetItemChecked(i) = True

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

Code :

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

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

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

Je réédite:

Code :

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

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

Est-ce mieux?

[Ehjoe]

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 :

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

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

[Chapeau_Bas]

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

Code:

Code :

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

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

Est-ce mieux?

[Ehjoe]

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

Code:

Code :

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

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 :

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

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

[tleblanc]

Salut,

Et pourquoi pas ça :

Code :

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

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

Ca marche aussi avec :

Code :

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

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

[Ehjoe]

Bonjour

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

Solution la plus VB6

Code :

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

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 :

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

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 :

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

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

[Nathanael Marchand]

La plus propre:

Code :

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

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

[Ehjoe]

La plus propre:

Code :

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

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 :

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

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

Hum...