[VB.net] Propriété de checkbox décoché

Résolu
afrodje Messages postés 759 Date d'inscription   Statut Membre Dernière intervention   -  
afrodje Messages postés 759 Date d'inscription   Statut Membre Dernière intervention   -
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

teebo Messages postés 33491 Date d'inscription   Statut Modérateur Dernière intervention   1 793
 
Salut,
Il y a pas un "checked" comme propriété? Ou un "value"?
0
afrodje Messages postés 759 Date d'inscription   Statut Membre Dernière intervention   168
 
Pas dans le Handles
0
afrodje Messages postés 759 Date d'inscription   Statut Membre Dernière intervention   168
 
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?
0
afrodje Messages postés 759 Date d'inscription   Statut Membre Dernière intervention   168
 
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
0