Probleme sur une CheckBoxList

Version imprimable

Bonjour

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

ma CheckBoxList :

Code:

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:

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

24/10/2011, 10h42
BenoitM

C'est la propriété Checked que tu dois vérifier et non Selected
24/10/2011, 10h47
Vanessa48

Quand je saisi le code la propriété Checked n'est pas sur la liste
24/10/2011, 11h07
BenoitM

Quand tu debug CbxHeures.Items(I) Est de quel type?
24/10/2011, 16h49
Vanessa48

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

pas sûr, mais ...

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:

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

Perso je coderai plus comme ça:

Code:

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

24/10/2011, 17h03
ToshiroSama

>> Un simple copier / coller de ton Code
>> Premier test en mode Debug

>> tu test avec "true" :aie: alors que c'est "True" ... tu manipule des chaine de caractère là donc "true" et différent de "True"...

:aie:

Je ne vois pas pourquoi tu testes comme ceci :

Code:

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:

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

24/10/2011, 17h17
Pelote2012

euh

Code:

lblH_OK.Text += CbxHeures.Items(I).Selected.ToString

ça n'afficherai pas "true", un peu dommage
mieu serai quelquechose du genre

Code:

lblH_OK.Text += CbxHeures.Items(I).value

?

Tu souhaite afficher ce qui est sélectionné et non sélectionnés.
avec 1 sélectionné 2 non sélectionné ... j'ai cru comprendre cela.

Ton code fonctionne sauf que le test avec "true" n'est pas bon parce que tu utilise la valeur d'un boolean ( ToString ) ce qui donne True ou False et non true ou false.

essaye ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim I As Integer
 
        lblH_OK.Text = String.Empty
 
        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 += (CbxHeures.Items(I).Value + "Sélectionné ")
                Else
                    lblH_OK.Text += (CbxHeures.Items(I).Value + " non Sélectionné ")
                End If
            End If
        Next
    End Sub

Au même temps tu peux ou bien virer

Code:

If CbxHeures.Items(I).Selected Then

ou bien

Code:

1
2
Else
lblH_OK.Text += (CbxHeures.Items(I).Value + " non Sélectionné "

Voilà donc ce que j'aurais mis.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim I As Integer
 
        lblH_OK.Text = String.Empty
 
        For I = 0 To CbxHeures.Items.Count - 1
 
            Dim H_OK As String = CbxHeures.Items(I).Selected.ToString
            If H_OK = "True" Then
                lblH_OK.Text += (CbxHeures.Items(I).Value + "Sélectionné ")
            Else
                lblH_OK.Text += (CbxHeures.Items(I).Value + " non Sélectionné ")
            End If
 
        Next
    End Sub

24/10/2011, 18h17
Vanessa48

Merci à tous pour votre aide
C'est OK