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

Résolu
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
--
1000101 et plus si affinité ;)
Configuration: Windows XP
Firefox 3.0

2 réponses

  1. Contributeur
    Salut,
    Il y a pas un "checked" comme propriété? Ou un "value"?
    0
    1. Pas dans le Handles
      0
  2. 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
    1. 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