Supprimer tous les items cochés d'une CheckListBox

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 416 fois - Téléchargée 8 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

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.