ListBox

Résolu

mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention -
mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention - 25 déc. 2015 à 11:04

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

Afficher la suite

A voir également:

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

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

Réponse 2 / 2

mohalesage Messages postés 147 Date d'inscription Statut Membre Dernière intervention 1

Bonjour

Mes sincères remerciements. Le Code fonctionne à merveille

Discussions similaires

additem listbox en multicolonnes

Creer et remplir un ListBox en VB6 pr un nul

ListBox a 2 colonnes

[VB 6] Changer l'index d'une ListBox

VBA [Excel] Récupérer la donnée d'une listbox dans une formule

Votre réponse

Discussions similaires