Suprimer case CheckedListBox problème

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:

---

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:

---

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 :)

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

Code:

---

checkedlistbox1.Iitems.Clear()

---

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

Code:

---

Me.checkedboxlist.ClearSelected()

---

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

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.

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

Citation:

---

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.

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:

---

Me.liste_options.CheckedItems

---

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

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

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

Code:

---

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

Code:

---

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.

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:

---

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é.

Citation:

---

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 ...

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

Citation:

---

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 :

Citation:

---

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.

---

Citation:

---

Envoyé par asmduty

Code:

---

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 ...

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

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

Citation:

---

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

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

Code:

---

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:

---

listasupprimer.Insert(0, indice)

---

Merci de m'avoir expliqué . Parfait ça marche correctement ! Merci encore pour tous de m'avoir aidé . Bonne journée :)