Discussion :

[Vanessa48]

Bonjour

J'ai une CheckBoxList et je voudrais savoir les CheckBox cochées quand je clic sur un bouton

ma CheckBoxList :

Code :

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

1
2
3
4
5
6
7
8
9
<asp:CheckBoxList ID="CbxHeures" runat="server" 
 AutoPostBack="True" RepeatDirection="Horizontal">
        <asp:ListItem Value="8">8h</asp:ListItem>
        <asp:ListItem Value="9">9h</asp:ListItem>
        <asp:ListItem Value="10">10h</asp:ListItem>
        <asp:ListItem Value="11">11h</asp:ListItem>
        <asp:ListItem Value="12">12h</asp:ListItem>
        <asp:ListItem Value="13">13h</asp:ListItem>
</asp:CheckBoxList>

Mon bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub btnHeureOK_onclick(ByVal Sender As Object, ByVal e As EventArgs)
        Dim I As Integer
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                Dim H_OK As String = CbxHeures.Items(I).Selected.ToString
                If H_OK = "true" Then
                    lblH_OK.Text = "Sélectionné"
                Else
                    lblH_OK.Text = "Non sélectionné"
                End If
            End If
        Next
End Sub

Quand je clic sur mon bouton j'ai non-selectionné que la CheckBox soit cochées ou non

Pouvez-vous me dire où est l'erreur
Merci

[BenoitM]

C'est la propriété Checked que tu dois vérifier et non Selected

[Vanessa48]

Quand je saisi le code la propriété Checked n'est pas sur la liste

[BenoitM]

Quand tu debug CbxHeures.Items(I) Est de quel type?

[Vanessa48]

quand je fais F11 et coche et clic sur le bouton je ne passa pas par le debug

[Pelote2012]

en faisant cette boucle tu écrase et ne garde dans le label que le l'état de la dernière case cochée, non?
En plus, j'ai l'impression que ton code ne peut pas passer par

Code :

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

1
2
 
lblH_OK.Text =  "Non sélectionné"

Perso je coderai plus comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub btnHeureOK_onclick(ByVal Sender As Object, ByVal e As EventArgs)
        Dim I As Integer
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                     lblH_OK.Text = lblH_OK.Text  & "Sélectionné;"
             Else
                    lblH_OK.Text = lblH_OK.Text  & "Non sélectionné;"
             End If
        Next
End Sub

[Jean-Michel Ormes]

Je ne vois pas pourquoi tu testes comme ceci :

Code :

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

If H_OK = "true"

Puisque dans aucun de tes ListItem tu n'as cette valeur. D'où l'utilité du debug pour vérifier tes valeurs.

Essayes ceci pour voir :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub btnHeureOK_onclick(ByVal Sender As Object, ByVal e As EventArgs)
        Dim I As Integer
        For I = 0 To CbxHeures.Items.Count - 1
            If CbxHeures.Items(I).Selected Then
                lblH_OK.Text += CbxHeures.Items(I).Selected.ToString
            End If
        Next
 
       lblH_OK.Text += "Sélectionné(s)"
End Sub