Selectionner un seul item dans une CheckedListBox

Version imprimable

2 pièce(s) jointe(s)

Ce n'est pas logique, mais c'est peut-être moi !!!

Bonsoir,

J'ai planché pas mal de temps sur ce petit problème de "coche"-"décoche" dans une CheckesListBox.

Mon souhait est de ne pouvoir sélectionner qu'un item à la fois dans la liste.
Le code ci-joint fonctionne parfaitement si je passe d'un Item à un autre.
Mais si je sélectionne par exemple Item B, puis le déselectionne, puis le resélectionne.
La "coche" ne se met pas..... ou alors après quelques essais d'une manière non constante d'ailleurs.
Parfois en insistant après 3 clics, parfois après 5 clics, rarement directement.

En cherchant sur le net, j'ai trouvé des exemples mais qui ressemeblent presque 100% à mon code !!

Quelqu'un voit il la faille ?

Merci

Pierre

Pièce jointe 614092
Pièce jointe 614093
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click CheckedListBox1.Items.Clear() CheckedListBox1.Items.Add("ITEM A") CheckedListBox1.Items.Add("ITEM B") CheckedListBox1.Items.Add("ITEM C") End Sub Private Sub CheckedListBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles CheckedListBox1.MouseClick Dim idx, sidx As Integer sidx = CheckedListBox1.SelectedIndex For idx = 0 To CheckedListBox1.Items.Count - 1 Step 1 If idx <> sidx Then CheckedListBox1.SetItemChecked(idx, False) Else CheckedListBox1.SetItemChecked(sidx, True) End If Next idx End Sub End Class

Bonjour,

il faut le faire sur la méthode ItemCheck

Code:

1
2
3
4
5
 
private void checkedListBox1_ItemCheck(object sender, ItemCheckEventArgs e) {
      for (int ix = 0; ix < checkedListBox1.Items.Count; ++ix)
        if (ix != e.Index) checkedListBox1.SetItemChecked(ix, false);
    }

20/02/2022, 18h04
PeD012

Merci, mais je suis incapable d'adapter ce code ( C++ ? ) sur mon petit VBNet.
Autodidacte en VBNet, j'ai, je le sais, de grosses lacunes. :(:(

Pierre
20/02/2022, 21h46
licardentaistor

c'est du C# que vous pouvez convertir ici en VB: https://converter.telerik.com/

Pas mal.merci.
J'ai converti et reçu ceci

Code:

1
2
3
4
5
Private Sub checkedListBox1_ItemCheck(ByVal sender As Object, ByVal e As ItemCheckEventArgs)
    For ix As Integer = 0 To checkedListBox1.Items.Count - 1
        If ix <> e.Index Then checkedListBox1.SetItemChecked(ix, False)
    Next
End Sub

Maintenant j'ignore comment atteindre ce code !! Un Call? automatique quand ... ?

Pierre

Voilà j'ai modifié ainsi et cela fonctionne avec properties "CheckOnClick à True sur la CheckedListBox
Code:

1 2 3 4 5 Private Sub checkedListBox1_ItemCheck(ByVal sender As Object, ByVal e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck For ix As Integer = 0 To CheckedListBox1.Items.Count - 1 If ix <> e.Index Then CheckedListBox1.SetItemChecked(ix, False) Next End Sub
La piste de "Mouse_Click" n'était vraiment pas la bonne, mais si je ne comprends toujours pas la réaction à mon premier code !!!!

Merci

Bonne journée

Pierre

21/02/2022, 10h18
popo

Citation:

Envoyé par PeD012

J'ai planché pas mal de temps sur ce petit problème de "coche"-"décoche" dans une CheckesListBox.

Mon souhait est de ne pouvoir sélectionner qu'un item à la fois dans la liste.

Il suffit d'utiliser le composant qui gère nativement ce comportement : le radiobuttonlist
21/02/2022, 10h57
PeD012

Citation:

Envoyé par popo

Il suffit d'utiliser le composant qui gère nativement ce comportement : le radiobuttonlist

Aie !! je suis embêté et confus. Je ne trouve même pas le composant RadioButtonList dans la boîte à outils de mon "Microsoft Visual Studio 2017" !!
21/02/2022, 17h07
popo

Effectivement, je viens de voir que la RadioButtonList n'est pas disponible en Winform.
Mais il est possible d'en créer une de toutes pièces sans trop d'efforts

https://www.c-sharpcorner.com/articl...ation-c-sharp/

C'est cadeau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Imports System.ComponentModel
Imports System.Windows.Forms.VisualStyles
 
Partial Public Class RadioButtonList
 
    Private s As Size
 
    Protected Overrides Sub OnDrawItem(ByVal e As DrawItemEventArgs)
        Dim text = If((Items.Count > 0), GetItemText(Items(e.Index)), Name)
        Dim r As Rectangle = e.Bounds
        Dim p As Point
        Dim flags = TextFormatFlags.[Default] Or TextFormatFlags.NoPrefix
        Dim selected = (e.State And DrawItemState.Selected) = DrawItemState.Selected
        Dim state = If(selected, (If(Enabled, RadioButtonState.CheckedNormal, RadioButtonState.CheckedDisabled)), (If(Enabled, RadioButtonState.UncheckedNormal, RadioButtonState.UncheckedDisabled)))
 
        If RightToLeft = System.Windows.Forms.RightToLeft.Yes Then
            p = New Point(r.Right - r.Height + (ItemHeight - s.Width) / 2, r.Top + (ItemHeight - s.Height) / 2)
            r = New Rectangle(r.Left, r.Top, r.Width - r.Height, r.Height)
            flags = flags Or TextFormatFlags.RightToLeft Or TextFormatFlags.Right
        Else
            p = New Point(r.Left + (ItemHeight - s.Width) / 2, r.Top + (ItemHeight - s.Height) / 2)
            r = New Rectangle(r.Left + r.Height, r.Top, r.Width - r.Height, r.Height)
        End If
 
        Dim bc = If(selected, (If(Enabled, SystemColors.Highlight, SystemColors.InactiveBorder)), BackColor)
        Dim fc = If(selected, (If(Enabled, SystemColors.HighlightText, SystemColors.GrayText)), ForeColor)
 
        Using b = New SolidBrush(bc)
            e.Graphics.FillRectangle(b, e.Bounds)
        End Using
 
        RadioButtonRenderer.DrawRadioButton(e.Graphics, p, state)
        TextRenderer.DrawText(e.Graphics, text, Font, r, fc, bc, flags)
        e.DrawFocusRectangle()
        MyBase.OnDrawItem(e)
    End Sub
 
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    Public Overrides Property SelectionMode As SelectionMode
        Get
            Return System.Windows.Forms.SelectionMode.One
        End Get
        Set(ByVal value As SelectionMode)
        End Set
    End Property
 
    <Browsable(False), EditorBrowsable(EditorBrowsableState.Never), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    Public Overrides Property ItemHeight As Integer
        Get
            Return (Me.Font.Height + 2)
        End Get
        Set(ByVal value As Integer)
        End Set
    End Property
 
    <EditorBrowsable(EditorBrowsableState.Never), Browsable(False), DesignerSerializationVisibility(DesignerSerializationVisibility.Hidden)>
    Public Overrides Property DrawMode As DrawMode
        Get
            Return MyBase.DrawMode
        End Get
        Set(ByVal value As DrawMode)
            MyBase.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
        End Set
    End Property
End Class

Dans le New (sans paramètre) du fichier Designer.vb du composant (juste avant l'appel à InitializeComponent):

Code:

1
2
3
4
5
 Me.DrawMode = DrawMode.OwnerDrawFixed
 
        Using g = Graphics.FromHwnd(IntPtr.Zero)
            s = RadioButtonRenderer.GetGlyphSize(Graphics.FromHwnd(IntPtr.Zero), RadioButtonState.CheckedNormal)
        End Using

21/02/2022, 20h55
PeD012

Merci du cadeau :) je prends.

Bonne soirée

Pierre