ListBox avec CheckBox

Résolu
Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -  
Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

Je travaille sur VB6. , et j'ai une ListBox avec CheckBox.

Je veux quand je coche une case ( valeur True) les autres case soient décochèes ( valeur False)

Merci pour votre aide

1 réponse

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    'Une seule selection, la derniere
    Private Sub List1_Click()
          For i = 0 To List1.ListCount - 1
                If i <> List1.ListIndex Then        'compteur <> de la selection
                      List1.Selected(i) = False       'decoche l'autre
                End If
          Next i
    End Sub
    
    0
    1. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2
       
      Bonjour

      Votre code marche à merveille

      Un gand MERCI
      0
    2. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2
       
      Re bonjour

      Autre chose, j'ai conçu une liste commandée par le bouton ( Ouvrir ).
      Sur cette liste ( avec CheckBox ) apparait 3 années.
      Comme au chargement de l'application apparait sur le ( MDIform.caption) la dernière année.
      L'dée est lors de charger la form (ouvrir) la case de l'année parue au MDIForm.caption soit cochée.

      J'ai conçu un code mais toujour la case de la première annèe qui soit cochèe.

      Le code ecrit sur form_load

      Sub Form_load

      Dim varIndex as integer

      If liste= VarDossier then
      'l'annee parut sur MDIform.captiob

      varIndex=liste.listindex

      End if

      Liste.selected(varIndex)=true

      End sub
      
          
      0
    3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,

      Vous pouvez expliquer un peu mieux votre affaire……!!
      0
    4. Lenouveauapprenti Messages postés 306 Date d'inscription   Statut Membre Dernière intervention   2
       
      Re bonjour

      Je m'explique un peu mieux

      Au moment de l'ouverture de l'application, les données du dernier dossier s'affiche en haut de la barre du menu.
      Parfois, je seari appelé à ouvrir un autre dossier anterieur. A ce moment je vais ouvrir la liste des dossiers ( cette liste est avec case à cocher)

      Ce que je cherche est lors de l'ouverture de cette liste, la case à cocher du dossier déjà ouvert ( avant de choisir l'anterieur ou autre) doit être cochée ( valeur true de liste.selected)

      Merci
      0
    5. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,

      Ok
      0