Discussion :

[aertys]

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 :

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 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!

[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.

[sevyc64]

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 :

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

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

[aertys]

merci beaucoup ça marche maintenant!

[chrismonoye]

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 VB.NET :

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

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