[VB.NET] Connaitre le nombre d'éléments sélectionnés

Version imprimable

16/02/2004, 14h35
stephtbest

[VB.NET] Connaitre le nombre d'éléments sélectionnés

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 !

Code:

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

Salut,

Code:

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

Un truc comme ca ?

16/02/2004, 14h44
Pari

Trop rapide Bidou. :D

pour du c#

Code:

1
2
3
4
5
6
7
 
int nbselected = 0;
for &#40;int i = 0; listBox1.Items.Count&#40;&#41;; i++&#41;
&#123;
  if &#40;ListBox1.Items&#91;i&#93;.Selected&#41;; 
    nbselected += 1; 
&#125;

16/02/2004, 14h46
dupin40

Citation:

Envoyé par Pari

Trop rapide Bidou. :D

Faut pas trainer pour répondre .... :wink:

Citation:

Envoyé par bidou

Code:

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:

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&#40;item&#41;
 
                End If
 
            Next
            i = lstBoxSalarie.Items.Count - 1
            While i >= 0
                lstBoxSalarie.Items.RemoveAt&#40;i&#41;
                i = lstBoxSalarie.Items.Count - 1
            End While

Citation:

Envoyé par Pari

Salut,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim i As Integer
        If IsNothing&#40;List1.SelectedItem&#41; Then
            Response.Write&#40;"<script>alert&#40;'Veuillez choisir une valeur'&#41;</script>"&#41;
        Else
            Do Until i > List1.Items.Count - 1
                If List1.Items&#40;i&#41;.Selected Then
                    List2.Items.Add&#40;List1.Items&#40;i&#41;.Value&#41;
                    List1.Items.RemoveAt&#40;i&#41;
                    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 !! :P