Discussion :

[I.Z.M.M]

salut tt le monde,

voilà 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
 
Private Sub valider_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles valider.Click
        Dim i As Integer
        Dim rep(3) As String
        For i = 0 To CheckReponses.Items.Count - 1
            If (CheckReponses.SelectedIndex = i) Then
                Rep(i) = CheckReponses.SelectedValue
            End If
        Next
        For Each o As String In Rep
            LblTest.Text = LblTest.Text + o
        Next
 
End Sub

mon pb c'est que le label LblTest ne contient que le 1er élément coché.

Merci pour votre aide.

[lutecefalco]

SelectedIndex te retourne que l'index du 1er item sélectionné

[I.Z.M.M]

Merci pou l'info
j'ai changé la boucle mais il y a tjs un pb

Code :

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

1
2
3
4
5
6
7
8
9
10
 
For i = 0 To CheckReponses.Items.Count - 1
      If (CheckReponses.Items.Item(i).Selected = True) Then
          Rep(i) = CheckReponses.SelectedValue
      End If
Next
 
For Each o As String In Rep
      LblTest.Text = LblTest.Text + " " + o
Next

LblTest contient seulement le 1er élément coché autant de fois que le nombre d'éléments cochés !

SVP proposez moi une solution

[lutecefalco]

Bah oui, même réponse que précédemment

[I.Z.M.M]

vous m'avez dit que SelectedIndex ne retoune que le 1er élément coché sauf qu'après j'ai utilisé Iems.Item(index).Selected .

autre question : est ce que ce traitement doit se faire dans un évènement spécifique à CheckBoxList ??

[lutecefalco]

vous m'avez dit que SelectedIndex ne retoune que le 1er élément coché sauf qu'après j'ai utilisé Iems.Item(index).Selected .

Code :

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

1
2
3
4
If (CheckReponses.Items.Item(i).Selected = True) Then
          Rep(i) = CheckReponses.SelectedValue
      End If

[I.Z.M.M]

Enfin c résolu !

voilà le nouveau code:

Code :

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

1
2
3
4
5
6
 
For Each o As ListItem In CheckReponses.Items
            If (o.Selected = True) Then
                LblTest.Text = LblTest.Text + " " + o.Text
            End If
Next