Discussion :

[khany]

Bonjour !
Je sais, c'est tordu allez-vous dire car la CheckedListBox est justement faite pour choisir plusieurs éléments et une ListBox ferait mieux l'affaire.
Tout à fait d'accord mais je trouve le look de la CheckedListBox beaucoup plus beau de part la case à cocher qui montre bien à l'utilisateur ce qu'il a choisi.
Donc, je voudrais que l'utilisateur ne puisse faire qu'un seul choix.
J'ai tenté le .enabled = false dès qu'un choix est fait mais alors ... quid si l'utilisateur s'est trompé et veut modifier son choix. Un bouton "Corriger" qui remet le .enabled = true, cela fait un peu racommodage et programmation joujou
L'option "Flags" m'a aussi titillée mais j'ai plusieurs CheckedListBox et cela devient difficile à gérer.

D'autres idées, pistes, suggestions, un événement qui m'aurait échappé ?

D'avance, merci

[robri]

bonjour,

je crois que la propriété SelectionMode permet de ne choisir qu'un élément à la fois en lui donnant la valeur "One"

[khany]

J'ai testé mais je peux cocher plusieurs cases
Du moins, je vois les coches des cases cliquées checkées, ce qui n'est pas le but.

[robri]

j'ai bien fait de mettre "je crois"

désolé je ne vois pas comment faire. A part en utilisant une listbox simple...

[Kropernic]

Je pense avoir une solution à proposer. Je suis sous VS2003 mais ça doit marcher aussi sous les autres versions.

J'ai mis la propriété CheckOnClick à True. (je pense que c'est important)

Il y a 2 "philosophies" possible.

1 : Quand l'utilisateur a déjà coché une case, il doit d'abord la décocher pour en cocher une autre.

2 : Quand l'utilisateur a déjà coché une case, s'il en coche une 2e, la 1e est décochée.

1e approche.
Dans l'évènement SelectedIndexChanged de la CheckedListBox, j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If MaCheckedListBox.CheckedIndices <> 1 Then
    MaCheckedListBox.SetItemChecked(MaCheckedListBox.SelectedIndex, False)
End if

2e approche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
If MaCheckedListBox.CheckedIndices <> 1 Then
    For i as Integer to MaCheckedListBox.Items.Count - 1
        If MaCheckedListBox.GetItemCheckState(i) And Not (i = MaCheckedListBox.SelectedIndex) Then
            MaCheckedListBox.SetItemChecked(i, False)
        End If
    Next 
End If

Voilà, avec ça, chez moi ça fonctionne.

Griftou.

[khany]

Très bonne ton idée, je vais tester
et, j'avais oublié de le préciser, la propriété CheckOnClick est bien à True !

[khany]

Bon, je suis partie de l'excellente idée de griftou et je suis arrivée à une solution assez simple finalement.
Petite précision, l'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If MaCheckedListBox.CheckedIndices <> 1 Then

donnée par griftou est refusée en VB 2005.

Mais ceci fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
            Dim indexA As Integer = MaCheckedListBox.SelectedIndex
            For i As Integer = 0 To Me.MaCheckedListBox.Items.Count - 1
                Me.MaCheckedListBox.SetItemChecked(i, False)
            Next
            Me.MaCheckedListBox.SetItemChecked(indexA, True)

N'essayez pas d'utiliser la méthode ClearSelected, elle ne fonctionne pas sur une collection. Je l'ai pas inventé, je viens de le lire dans l'aide en ligne.

Merci pour l'idée de départ

[Kropernic]

Il donne quoi comme erreur sur l'instruction qui ne passe pas ?

Ca m'a toujours intrigué les différences de ce genre entre différentes versions.

Griftou.

[khany]

Par coeur, je ne sais plus, faudrait que je retape les lignes
mais c'est la comparaison <> (et même =) à un integer qui est refusée.
Si j'ai le temps, je retaperai la ligne pour dire le message exact

[Kropernic]

Ok. Suis déjà content d'avoir pu être utile.

Griftou.