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

Résolu/Fermé
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 - 28 févr. 2008 à 11:10
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 - 3 mars 2008 à 13:59
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 jeudi 14 octobre 2004 Statut Modérateur Dernière intervention 24 février 2011 1 793
28 févr. 2008 à 11:16
Salut,
Il y a pas un "checked" comme propriété? Ou un "value"?
0
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
28 févr. 2008 à 11:18
Pas dans le Handles
0
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
28 févr. 2008 à 11:43
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 mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
3 mars 2008 à 13:59
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