Menu

ListBox avec CheckBox [Résolu]

Messages postés
78
Date d'inscription
samedi 22 décembre 2018
Dernière intervention
13 mars 2019
- - Dernière réponse : Lenouveauapprenti
Messages postés
78
Date d'inscription
samedi 22 décembre 2018
Dernière intervention
13 mars 2019
- 13 mars 2019 à 12:25
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
Afficher la suite 

Votre réponse

1 réponse

Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
1320
0
Merci
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
Lenouveauapprenti
Messages postés
78
Date d'inscription
samedi 22 décembre 2018
Dernière intervention
13 mars 2019
-
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
    
f894009
Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
1320 -
Bonjour,

Vous pouvez expliquer un peu mieux votre affaire……!!
Lenouveauapprenti
Messages postés
78
Date d'inscription
samedi 22 décembre 2018
Dernière intervention
13 mars 2019
-
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
f894009
Messages postés
14127
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
26 mars 2019
1320 -
Re,

Ok
Lenouveauapprenti
Messages postés
78
Date d'inscription
samedi 22 décembre 2018
Dernière intervention
13 mars 2019
-
Re bonjour

Je crois que j'ai trouvé l'astuce. Je m'explique
J'ai ecris le code suivant sur form Ouvrir ( FOuvrir)

<code basic>
Sub Form_Load ()

For I=0 to Liste.ListCount - 1

If Liste= VarDossier then
I=Liste.ListIndex
Exit For
End if

Next

VarIndex= I -1

Liste.Selected(VarIndex)=True

End Sub
</code>


Un grand Merci pour toute votre attention
Commenter la réponse de f894009