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

2 réponses

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