Limiter le nombre de checkbox cochés

Version imprimable

Bonjour à tous,
j'ai mis 12 checkbox dans un panel dans mon form et je voudrais empêcher l'utilisateur d'en cocher plus de 4.
j'ai donc tapé le code suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub pnlecrit_CheckedChanged(sender As Object, e As EventArgs) Handles chkgeo.CheckedChanged, chkalle.CheckedChanged, chkange.CheckedChanged, chkastre.CheckedChanged, chkbio.CheckedChanged, chkespe.CheckedChanged, chkfr.CheckedChanged, chkgeo.CheckedChanged, chkgeol.CheckedChanged, chkhiste.CheckedChanged, chkmath.CheckedChanged, chkphilo.CheckedChanged, chkrussee.CheckedChanged
        Dim c As Integer
        If (sender.checked = True) Then
            c = c + 1
            If (c > 4) Then
                MsgBox("Vous ne pouvez choisir que 4 matières à l'écrit au maximum", MsgBoxStyle.Critical)
                sender.checked = False
                c = 4
            End If
        End If
        If (sender.checked = False) Then
            c = c - 1
        End If
    End Sub

Ni à la compilation, ni à l'exécution, il ne me produit d'erreur, mais j'ai beau cocher les 12 cases, il ne fait rien!

01/06/2013, 15h37
Graffito

Enlève l'instruction c=4. La décrémentation de c va s'effectuer quand on réentre dans la fonction suite à l'instruction sender.checked = False.

Ton code ne peut marcher que si tu déclare ta variable c en tant que variable globale pour qu'elle conserve sa valeur entre plusieurs évènements.

L'autre solution serait de repasser systématiquement en revue les 12 checkbox pour en compter celles qui sont cochées (et non pas uniquement celle que tu viens de cocher, avec ton code)

Par exemple en utilisant Linq sur la collection des contrôles du panel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub pnlecrit_CheckedChanged(sender As Object, e As EventArgs) Handles chkgeo.CheckedChanged, chkalle.CheckedChanged, chkange.CheckedChanged, chkastre.CheckedChanged, chkbio.CheckedChanged, chkespe.CheckedChanged, chkfr.CheckedChanged, chkgeo.CheckedChanged, chkgeol.CheckedChanged, chkhiste.CheckedChanged, chkmath.CheckedChanged, chkphilo.CheckedChanged, chkrussee.CheckedChanged Dim c As Integer = 0 Dim chkBxs As IEnumerable = From c In Me.pnlecrit.Controls _ Where c.GetType.ToString = GetType(CheckBox).ToString For Each chkBx As CheckBox In chkBxs If chkBx.Checked then c = c+1 Next If (c > 4) Then MsgBox("Vous ne pouvez choisir que 4 matières à l'écrit au maximum", MsgBoxStyle.Critical) sender.checked = False End If End Sub

01/06/2013, 17h23
aertys

merci beaucoup ça marche maintenant!

Bonsoir,
on peut également incrémenter ou décrémenter un compteur à chaque clic cochant ou décochant.
Avec une variable c au niveau de la classe (variable membre), comme l'a dit sevyc64
Code:

1 2 3 4 5 6 If CType(sender, CheckBox).Checked Then c += 1 Else c = c - 1 If c > 4 Then MsgBox("Vous ne pouvez choisir que 4 matières à l'écrit au maximum", MsgBoxStyle.Critical) CType(sender, CheckBox).Checked = False End If