[VB.net] Propriété de checkbox décoché [Résolu/Fermé]

Signaler
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
-
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
-
Bonjour,

Je cherche à savoir dans le Handles, si la checkbox est décoché.
Car j'utilise macheckbox.CheckedChanged mais ce n'est pas top.

Merci

2 réponses

Messages postés
33478
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 762
Salut,
Il y a pas un "checked" comme propriété? Ou un "value"?
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
165
Pas dans le Handles
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
165
sinon j'ai une 2eme solution.
J'ai une collection de checkbox et je voudrais savoir celle qui est coché.

Je récupère avec ce code l'indice de la collection, puis grâce à cette indice, je voudrais décoché la checkbox
GroupBox_checkbox.Controls.IndexOf(sender)


Comme faire?
Messages postés
759
Date d'inscription
mardi 13 mars 2007
Statut
Membre
Dernière intervention
22 janvier 2014
165
voila la procedure que j'ai faite :
Private Sub group_chechbox(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox_ca.CheckedChanged, CheckBox_ms.CheckedChanged, CheckBox3.CheckedChanged, CheckBox4.CheckedChanged, CheckBox5.CheckedChanged

    Dim ensemble_checkbox As CheckBox = Nothing

    Dim nom_check_box As CheckBox = Me.ActiveControl
    If (nom_check_box.Checked = True) Then
        Dim index_checkbox As Integer
        index_checkbox = GroupBox_checkbox.Controls.IndexOf(sender)
        Select Case index_checkbox
            Case 0

                .........

            Case 1
                ................
            Case 2
            Case 3
            Case 4
            Case 5
            Case Else
                MsgBox("Erreur")
        End Select
    Else
        Dim index_checkbox As Integer
        index_checkbox = GroupBox_checkbox.Controls.IndexOf(sender)
        Select Case index_checkbox
            Case 0
                MsgBox("0 decoche")
            Case 1
                MsgBox("1 decoche")
            Case 2
            Case 3
            Case 4
            Case 5
            Case Else
                MsgBox("Erreur")
        End Select
    End If
End Sub



Merci pour vos réponses