Suprimer case CheckedListBox problème

**Alexand92** · 06/04/2011, 18h53

Bonjour mes amis , j'ai fais des recherches , essayé des codes , mais mon problème ne se résolve pas .... En faites j'ai une checkboxlist et dedans des options . C'est options je voudrais pouvoir les suprimmer en séléctionnant Suprimmer dans un Radio et en appyuant sur un bouton après . Le problème c'est que mes options reste toujours la , elle ne se suprimmer pas comme si suprimmer se faisait dans le vide . Je pense que l'action n'est pas "lier" au je sais pas . Voila le code :

Code :

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

1
2
3
4
5
6
 
       If Me.Supprimer.Checked Then
            If MsgBox("Vous êtes sur de vouloir supprimer cette action ?") Then
 
                Me.Liste_options.Remove(OptionsSelectionner)
            End If

Et voila la fonction OptionsSelectionner , qui je pense est le problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Private Sub liste_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
            For Each OptionsTotal As options In Liste_options
                If OptionsTotal.options = Me.liste.SelectedItems.ToString Then
 
                    Me.OptionsSelectionner = OptionsTotal
                End If
            Next
        End If
 
    End Sub

J'espère que vous aller m'aider ! Merci Bonne Journée

**sihammaster** · 06/04/2011, 19h53

Bonjour,
Si tu voudras supprimer les case à cocher de tout le checkedlistbox fait ça:

Code :

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

checkedlistbox1.Iitems.Clear()

**Alexand92** · 06/04/2011, 20h13

Merci , en cherchant votre fonction n'hésitais pas , c'est celle la qui efface les élément selectionner :

Code :

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

Me.checkedboxlist.ClearSelected()

Sauf que ça ne fais rien . Ca le décoche juste :s

**sinople** · 07/04/2011, 10h01

Je pense que tu prends un peu le problème à l'envers là.

Pour faire simple:

Il y a 2 listes différentes dans le checkedListBox:

Une qui contient les éléments de la liste
Une qui contient les éléments coché de la liste

Si tu effaces la liste des éléments coché avec ClearSelected(), il est clair que ça ne va pas supprimer les éléments de la liste mais juste remettre à zéro les coche.

Pour effacer tout les éléments de la liste il faut passer par .Item.Clear(), pour effacer uniquement un élément de la liste Item(index élément).Remove ou un truc du style.

Maintenant un peu d'ergonomie et de design :

Si t'as liste de case à cocher représente une liste d'option, il est peut être plus logique de déterminer l'ajout ou la suppression d'option à l'objet apparenté par le fait que la case soit coché ou non et non par une suppression de l'élément global ? (d'autant plus que dans ce cas l'opération est facilement réversible pour l'utilisateur) C'est même tout l'interet d'utiliser une checkedlistbox à la place du listbox standard.

Ceci d'autant plus que, c'est un avis personnel, la checkedlistbox est nettement moins bien foutue que la listbox standard.

**Alexand92** · 07/04/2011, 10h30

Ok j'ai compris . Moi ce que je veux faire c'est supprimer les cases cochées . Comment je peux faire alors ?

**asmduty** · 07/04/2011, 10h34

Envoyé par sinople

pour effacer uniquement un élément de la liste Item(index élément).Remove ou un truc du style.

Je pense que tout est dit, c'est quand même fou que certains ne cherchent à rien faire par soi-même, tu as la réponse alors essaye de la mettre en oeuvre et si tu bloques revient poser tes questions, mais ne cherche pas à obtenir le code tout fait car dès que tu auras la même chose à refaire tu n'y arrivera à nouveau pas.

**Alexand92** · 07/04/2011, 10h47

Oui j'ai bien compris qu'il faillait que je cherche , mais l'exemple donner n'existe pas . Le seul code qui me permet d’effectué l'action sur les case coché est :

Code :

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

Me.liste_options.CheckedItems

Mais je n'ai pas trouvé de Remove ou autre :s

**asmduty** · 07/04/2011, 11h16

Tu recupères d'abord les index de tous tes éléments cochées qui sont dans Me.liste_options.Items et pour lesquels Checked = true.
Ensuite c'est à partir de ces index que tu travailles, pour supprimer les éléments cochés il suffit que tu parcours la liste d'index que tu viens de récupérer et pour chaque élément tu fais Me.liste_options.RemoveAt(index)

Celà dit ça risquerait de bloquer su tu veux supprimer l'indice 1 puis 3, tu supprimes le 1, le 3 devient le 2, donc il va te supprimer l'index 3 mais il s'agira en fait de celui qui était en position 4 lorsque tu as fait ta sélection d'index à supprimer et no celui qui était en position 3.
Pour éviter ça il suffit que tes indices soient classés par ordre décroissant, ainsi tu supprimes d'abord l'indice 3, l'incide 1 reste à sa position, tu peux donc ensuite le supprimer

**Alexand92** · 07/04/2011, 11h29

Ok , donc dans l'idée , ce code devrait marcher :

Code :

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

1
2
3
4
5
6
7
 
            If MsgBox("Are you sure you want to remove ?", vbYesNo, "Confirmation") Then
                'On le retire de la liste
                For x As Integer = 0 To liste_options.Items.Count - 1
                    Me.liste_options.RemoveAt(Me.liste_options.CheckedItems)
                Next
            End If

Je ne sais pas si c'est cela a quoi vous pensiez mais je pense que sa pourrais marche. Le seul problème est que RemoveAt n'existe pas . Je n'ai trouvé aucune fonction pour supprimer . Merci de votre aide

**asmduty** · 07/04/2011, 12h10

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If MsgBox("Are you sure you want to remove ?", vbYesNo, "Confirmation") Then
 
     'liste des index cochés, donc à supprimer
     Dim listasupprimer As New List(Of Integer)
 
     'On parcours tous les indices cochés (exemple 1, 3, 7)
     For Each indice As Integer In liste_options.CheckedIndices
          'On insere l'indice en position 0, donc a la fin de la boucle l'indice en position 0 sera le 7, puis le 3, puis le 1
          listasupprimer.Insert(indice, 0)
     Next
 
     For Each indice In listasupprimer
          liste_options.Items.RemoveAt(indice)
     Next
 
End If

Quelque chose dans ce genre, c'est pas dit à 100% que ça marche du premier coup mais dans la logique je pense que c'est ça.

**AcidLines** · 07/04/2011, 12h17

Bonjour,

Je te conseil d'utiliser un TreeView avec affichage de case a coché.
Chacune de tes options serait alors un Noeud racine. et tu aurait simplement ce bout de code à mettre sur ton bouton pour supprimer les éléments cochés :

Code :

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

1
2
3
4
5
6
 
For Each Noeud As TreeNode In TreeView1.Nodes
If Noeud.Checked = True Then
Noeud.Remove()
End If
Next

Tu ne peux dans une Checkboxlist, parcourir tes élements afin de supprimer par l'index ceux qui sont cochés, tu aura une erreur. L'utilisation d'un Treeview est conseillé.

**asmduty** · 07/04/2011, 12h20

Envoyé par AcidLines

Bonjour,

Je te conseil d'utiliser un TreeView avec affichage de case a coché.
Chacune de tes options serait alors un Noeud racine. et tu aurait simplement

Tu ne peux dans une Checkboxlist, parcourir tes élements afin de supprimer par l'index ceux qui sont cochés, tu aura une erreur. L'utilisation d'un Treeview est conseillé.

Oui ok pour le treeview, pourquoi pas, mais je ne vois pas pourquoi il y aurait une erreur sur la suppression des éléments checked si le code est fait correctement ...

**Alexand92** · 07/04/2011, 12h45

Merci de vos réponses . Je veux bien utilisé un TreeView mais avec la CheckListBox je savais (plus ou moins) utilisé quelques fonctions et mon code repose la dessus . Alors qu'avec TreeView je ne connais rien , et je ne sais pas si les fonctions que j'ai marcherons avec TreeView . Je préfèrerais garder CheckListBox ..... Merci

**AcidLines** · 07/04/2011, 12h47

Envoyé par asmduty

Oui ok pour le treeview, pourquoi pas, mais je ne vois pas pourquoi il y aurait une erreur sur la suppression des éléments checked si le code est fait correctement ...

Le "RemoveAt()" se base sur l'indexation. Si tu essaye de supprimer un élément lors d'un parcours des éléments, étant donné que tu supprime les élément ton énumérateur change :

La liste à laquelle cet énumérateur est lié a été modifiée. Un énumérateur ne peut être utilisé que si la liste ne change pas.

**asmduty** · 07/04/2011, 12h53

Envoyé par asmduty

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
If MsgBox("Are you sure you want to remove ?", vbYesNo, "Confirmation") Then
 
     'liste des index cochés, donc à supprimer
     Dim listasupprimer As New List(Of Integer)
 
     'On parcours tous les indices cochés (exemple 1, 3, 7)
     For Each indice As Integer In liste_options.CheckedIndices
          'On insere l'indice en position 0, donc a la fin de la boucle l'indice en position 0 sera le 7, puis le 3, puis le 1
          listasupprimer.Insert(indice, 0)
     Next
 
     For Each indice In listasupprimer
          liste_options.Items.RemoveAt(indice)
     Next
 
End If

Quelque chose dans ce genre, c'est pas dit à 100% que ça marche du premier coup mais dans la logique je pense que c'est ça.

Et sachant que mon code parcours l'indexation à l'envers pour ne pas modifier l'indexation, et que je fais un for each sur une liste et non sur ma checklistbox je ne vois pas pourquoi ça me dirait ça ...

**AcidLines** · 07/04/2011, 12h55

Autant pour moi, je n'ai pas penser à parcourir à l'envers

**Alexand92** · 07/04/2011, 13h15

Merci de votre aide , j'ai essayé ton code , il me marque un problème à la ligne 9 :

L'index doit être dans les limites de la List.
Nom du paramètre : index

J'ai essayé de changer mais l'erreur revient . Que veut dire cette erreur ?

Merci

**asmduty** · 07/04/2011, 13h19

Padron, c'est de na faute, j'ai inversé les paramètres du "Insert"

Code :

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

listasupprimer.Insert(indice, 0)

j'essayais d'insérer à la position indice (exemple 7) la valeur 0, au lieu d'insérer la valeur 7 en position 0, donc comme au debut ta liste est vide tu ne peux rien inserer en position 7, alors qu'en position 0 oui.

donc

Code :

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