Trouver quels sont les éléments d'un CheckedListBox qui sont sélectionnés.

Version imprimable

14/01/2019, 18h51
Archampi

Trouver quels sont les éléments d'un CheckedListBox qui sont sélectionnés.

Bonjour à tous,

Voici mon problème.

J'utilise un CheckedListBox pour permettre à l'utilisateur de sélectionner une ou plusieurs options sous la forme d'une série de bits (0, 1) qui sera sauvegardée dans un fichier après avoir transformé cette série de 8 bits en une valeur de type Byte. Je n'ai aucun problème pour passer d'une série de bits à une valeur Byte et inversement. Mon problème consiste à déterminer quels sont les éléments du CheckedListBox qui sont "Checked" ce qui leur vaudra un "1" et ceux qui ne le sont pas "0".

J'ai beau chercher la syntaxe, je ne trouve pas.

Merci pour vos suggestions.
14/01/2019, 19h00
Pol63

tu fais F1 sur CheckedListBox, tu dois arriver par là :
https://docs.microsoft.com/fr-fr/dot...ramework-4.7.2
(F1 qui sert d'aide depuis l'invention du clavier)

ensuite tu regardes les propriétés et les méthodes (treeview dans la partie de gauche du site) qui contiennent "check" dans leur nom et tu verras que tu foultitude de moyen de récupérer ce que tu cherches
14/01/2019, 19h07
Archampi

Merci pour la référence.

Cependant, les exemples de code sont en C#. Je pense que je suis bien dans le forum VB.NET. Je ne comprends rien au C#.

Merci
14/01/2019, 19h35
clementmarcotte

Bonjour,

Citation:

Envoyé par Archampi

Merci pour la référence.

Cependant, les exemples de code sont en C#. Je pense que je suis bien dans le forum VB.NET. Je ne comprends rien au C#.

Merci

Tu peux aller voir là.

Le premier est pour VS 2017 et gratuit. Les autres, je n'ai pas regardé.

Et il y en a plusieurs en ligne.
14/01/2019, 20h14
Pol63

c# et vb.net sont 2 languages qui font partie de .net
ils sont totalement* traductibles de l'un à l'autre et utilisent le même Framework, seule la syntaxe change

l'aide est celle du Framework, parfois on peut avoir les exemples en c# et vb.net, là seul c# est dispo …
mais ca ne change rien ; l'aide explique avec des phrases en français tous les concepts du Framework .net, pour chaque classe on peut voir tous les membres et leur fonctionnalité
donc même si tu ne sais pas lire le c# ca devrait être faisable de faire comme je t'ai dis de regarder les membres qui existent sur cette classe et de regarder leur description pour savoir si c'est ca qu'il te faut

après apprendre à lire le c# un minimum n'est pas compliqué et peut etre utile, et pour commencer tu peux t'aider de convertisseurs vb.net/c#

Merci pour les liens.

Voici le bout de code que j'essaie de faire fonctionner.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Dim Chaîne As String = ""
Dim Élément As CheckedListBox.ObjectCollection
Dim Contrôle As Object
 
For Each Contrôle In Me.Controls
    ...
    'Les autres types de contrôles sont testés ici
    ...
 
    ElseIf TypeOf Contrôle Is CheckedListBox Then
        For Each Élément In Contrôle.Items            'C'est cette ligne qui bogue
            If Élément.Checked = True Then
                Chaîne = Chaîne & "1"
            Else
                Chaîne = Chaîne & "0"
            End If
        Next Élément
    End if
 
Next

Bonjour,

Non testé, mais essaie comme cela

Puisque Élément est déclaré comme une collection, tu dois itérer sur chaque sous-élément.

Code:

1
2
3
4
5
6
7
8
9
10
 ElseIf TypeOf Contrôle Is CheckedListBox Then
 
        For i = 0 to Élément.count - 1
            If Élément(i).checked = True Then
                Chaîne = Chaîne & "1"
            Else
                Chaîne = Chaîne & "0"
            End If
        Next Élément
    End if

15/01/2019, 16h17
Archampi

Merci Clément, je vais tester.

Finalement, voici la solution:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
    Private Sub Test(Contrôle As Object)
        Dim Coché As Boolean = False
        Dim Chaîne As String = ""
        Dim j As Integer
 
        If TypeOf Contrôle Is CheckedListBox Then
            For j = 0 To Contrôle.Items.Count - 1
                Coché = Contrôle.GetItemCheckState(j)
                If Coché = True Then
                    Chaîne = Chaîne & "1"
                Else
                    Chaîne = Chaîne & "0"
                End If
            Next
            Debug.Print(Nombre(Chaîne))
            Chaîne = Base(2, Nombre(Chaîne))
            Debug.Print(Chaîne)
        End If
    End Sub

Les dernières lignes de code servent simplement à valider l'exactitude des calculs avec deux fonctions. La première retourne la valeur en Byte et l'autre retourne la chaîne à partir de la valeur Byte.

Merci à tous pour votre inspiration et vos encouragements à poursuivre mes efforts.