Supprimer tous les items cochés d'une CheckListBox
Soyez le premier à donner votre avis sur cette source.
Snippet vu 15 581 fois - Téléchargée 9 fois
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
- Supprimer les doublons sql ✓ - Forum SQL
- DELETE doublons SQL server 2008 ✓ - Forum SQL
- Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
- Supprimer un doublon dans une requetes avec une fonction - Forum SQL
- Suppression de doublon.... ✓ - Forum SQL
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.