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!