ListBox Résolu

Question

Bonjour ,

J'ai crée une ListBox ( VB6 ) que j'ai nommé ListDossiers, avec la propriété Style "CheckBox"

Quant je clique sur la Feuille de ListDossiers, la case du dernier Dossier de cette liste. C'est à dire , le Dossier qui apparait dans la barre de la MDIForm.

Seulement en cochant la case d'un autre dossier pour l'ouvrir, la case du dernier dossier reste cochée.

Mon but est de décocher les autres cases une fois une est sélectionnée. De sorte que une Seule case qui doit restée cochée.

Merci d'avance pour votre aide

f894009 · Answer

Bonjour,

ceci devrait aller, mais attention si clic sans cocher une case:

Private Sub List1_Click()
    For i = 0 To List1.ListCount - 1
        If i <> List1.ListIndex Then    'pointeur liste different du listindex (derniere coche)
            List1.Selected(i) = False   'decoche
        End If
    Next i
End Sub

mohalesage · Answer

Bonjour 

Mes sincères remerciements. Le Code fonctionne à merveille

ListBox

2 réponses

Discussions similaires

Newsletters