Supprimer tous les items cochés d'une CheckListBox
Contenu du snippet
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
Dim Coche As Boolean = False
'on ajoute des éléments à la checklistBox en cochant un sur deux
For i As Integer = 1 To 6
Chk.Items.Add("Item " & i, Coche)
Coche = Not Coche
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Button1.Click
'on boucle pour chaque élément en partant du bas
For i As Integer = Chk.Items.Count To 1 Step -1
'si l'indice fait parti des indices "Coché" On Efface l'item
If Chk.CheckedIndices.Contains(i) Then Chk.Items.RemoveAt(i)
Next
End Sub
Compatibilité : VB 2005
Disponible dans d'autres langages :
A voir également
- Supprimer tous les items cochés d'une CheckListBox
- Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
- Code VB : suppression d'une feuille excel si elle existe ✓ - Forum VB.NET
- Supprimer les doublons sql ✓ - Forum SQL
- Selection et suppression feuille vide excel - Forum Visual Basic 6
- Suppression d'une feuille excel sans msgbox ✓ - Forum Visual Basic 6
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.