Discussion :

[stephtbest]

Bonjour
j'aimerais savoir comment connaitre le nombre d'eléments sélectionnés dans une listbox. Je n'arrive pas à trouver la bonne boucle.
En fait, c pour faire un bouton qui puisse ajouter les éléments sélectionnés dans une listBox dans une autre.
Merci !

[bidou]

Code :

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

1
2
3
4
5
6
Dim li As ListItem
For Each li In ListBox1.Items
   If li.Selected = True Then
         .....
   End If
Next

[Pari]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Integer
        If IsNothing(List1.SelectedItem) Then
            Response.Write("<script>alert('Veuillez choisir une valeur')</script>")
        Else
            Do Until i > List1.Items.Count - 1
                If List1.Items(i).Selected Then
                    List2.Items.Add(List1.Items(i).Value)
                    List1.Items.RemoveAt(i)
                    i = i - 1
                End If
                i = i + 1
            Loop
        End If

Un truc comme ca ?

[Pari]

Trop rapide Bidou.

[dupin40]

pour du c#

Code :

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

1
2
3
4
5
6
7
 
int nbselected = 0;
for (int i = 0; listBox1.Items.Count(); i++)
{
  if (ListBox1.Items[i].Selected); 
    nbselected += 1; 
}

[dupin40]

Trop rapide Bidou.

Faut pas trainer pour répondre ....

[stephtbest]

Code :

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

1
2
3
4
5
6
Dim li As ListItem
For Each li In ListBox1.Items
   If li.Selected = True Then
         .....
   End If
Next

Exactement ce que j'avais fait... et pourtant ça marche pas
voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 Dim item As ListItem
            Dim i As Integer
            For Each item In lstBoxSalarie.Items
                If lstBoxSalarie.SelectedItem.Selected = True Then
                    lstBoxSalChoisi.Items.Add(item)
 
                End If
 
            Next
            i = lstBoxSalarie.Items.Count - 1
            While i >= 0
                lstBoxSalarie.Items.RemoveAt(i)
                i = lstBoxSalarie.Items.Count - 1
            End While

[stephtbest]

Salut,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Integer
        If IsNothing(List1.SelectedItem) Then
            Response.Write("<script>alert('Veuillez choisir une valeur')</script>")
        Else
            Do Until i > List1.Items.Count - 1
                If List1.Items(i).Selected Then
                    List2.Items.Add(List1.Items(i).Value)
                    List1.Items.RemoveAt(i)
                    i = i - 1
                End If
                i = i + 1
            Loop
        End If

Un truc comme ca ?

un trux comme ça sauf que dans ce cas, il me prend uniquement la valeur affectée à l'item et non le texte + la valeur. Donc, ducoup il me faire
List2.Items.Add(List1.Items(i))
Merci à vous tous !!