Discussion :

[dragondu83]

Bonjour je ne comprend pas comment fonctionne les CheckedListBox, je ne trouve aucun tuto sur internet .
Donc je place ma CheckedListBox je rajoute dedans plusieurs choix, donc sa me donne une liste de CheckBox que je peut cocher (logique :p) et si par exemple je coche le CheckBox ou il y'a écrit par exemple "1" comment faire en sort que je sache si il y'a une CheckBox dans ma CheckedListBox qui est coché .

Si vous ne comprenez enfaîte je veut faire :

Code :

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

1
2
3
4
5
6
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If CheckBox1.Checked = True Then
            MsgBox("Salut")
        End If
    End Sub
End Class

Sauf que je ne veut pas le faire avec une CheckBox mais avec un choix qu'il y'a dans ma CheckedListBox.
Comment faire ?
Désoler si je suis un peut incompréhensible
Cordialement dragondu83

[rv26t]

Bonjour,

Il faut parcourir les collections proposées par le contrôle : exemple sur ce post.

[dragondu83]

Salut et merci de votre réponse .

Code :

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

1
2
3
4
5
 ' affiche les textes des CheckedBox cochés.
        For Each CheckedBoxCoche In CheckedListBox1.CheckedItems
            ' CheckedBoxCoche contient le texte du CheckedBox coché.
            RichTextBox1.Text &= "Le CheckedBox avec le titre '" & CheckedBoxCoche.ToString() & "' est coché. " & vbCrLf
        Next

Je ne comprend pas :'(

Moi je ne veut pas faire sa, je veut faire sa :

Code :

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

1
2
3
If CheckBox1.Checked = True Then
            MsgBox("Salut")
        End If

Sauf que la c'est avec une CheckBox alors que je voudrait le faire avec une CheckedListBox

[rv26t]

C'était pour te montrer le principe, après il faut adapter au besoin.

Avec par exemple ces éléments dans la CheckListBox.

Code :

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

1
2
3
4
    Private Sub frmCheckListBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        CheckedListBox1.Items.Clear()
        CheckedListBox1.Items.AddRange({"Zéro", "Un", "Deux", "Trois", "Quatre", "Cinq", "Six", "sept", "Huit", "Neuf", "Dix"})
    End Sub

Il suffit de regarder si l'élément voulu est dans la collection des éléments cochés.

Code :

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

        If CheckedListBox1.CheckedItems.Contains("Un") Then MessageBox.Show("Salut, 'Un' est coché")

[dragondu83]

Je pense que j'ai compris merci de m'avoir aider a propos de ce sujet je vais regarder sa merci beaucoup
Cordialement

[wallace1]

Bonsoir,

Il est également possible de le faire grace au gestionnaire d'évènement "ItemCheck" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Class Form1
 
    Private Sub CheckedListBox1_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck
        If e.NewValue = CheckState.Checked Then
            MsgBox("Checked : " & CheckedListBox1.Items(e.Index).ToString())
        ElseIf e.NewValue = CheckState.Unchecked Then
            MsgBox("UnChecked : " & CheckedListBox1.Items(e.Index).ToString())
        End If
    End Sub
End Class

Cela dépends vraiment de ce que tu souhaites faire, car la solution de rv26t corresponds à la majorité des cas. Personnellement j'utilise mon implémentation lorsque je veux que plusieurs cases du checkedlistbox soient cochées en même tps lorsque j'en coche une seule...... à voir....

A+

[rv26t]

Bonjour Wallace1

Merci pour le complément, je n'y avais pas pensé.

Il faut dire la demande présentant cette partie

Code :

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

1
2
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      '...

indiquait plus une recherche à postériori. Mais ta remarque est judicieuse et permet des actions instantanées.

[dragondu83]

Les deux méthode fonctionne parfaitement je vous remercie beaucoup ! :p
Cordialement