Enlever des Controls

Bonsoir,

Je cree des Boutons dynamiquement (qu'on peut bouger avec MouseMove) avec possibilities de les enlever tous:

Code:

---

1 2 3 4 5 6 7 8

Private Sub ClearPanel() For Each b As Button In myPanel.Controls myPanel.Controls.Remove(b) RemoveHandler aButton.MouseDown, AddressOf aButton_MouseDown RemoveHandler aButton.MouseUp, AddressOf aButton_MouseUp RemoveHandler aButton.MouseMove, AddressOf aButton_MouseMove Next End Sub

---

Cependant, cela ne marche pas toujours tres bien. Il faut que je passe au moins 3 fois dans la routine "ClearPanel" pour tout enlever (24 au total) ou repeter 3 fois le ForEach dans cette Sub.

Je ne comprends pas pourquoi un seul passage ne fait pas le travail, y-a-t-il une explication a ce probleme? Ou bien, ce code qui me parait tres simple n'est pas bon???

De plus, dois-je enlever les evenements crees dynamiquement avec "RemoveHandler" dans cette routine? Je pense que oui, mais si vous pouvez confirmer ce detail.

A+
JLuc01

Tu supprimes des items d'une liste que tu parcours, donc tu supprimes le 1er item, et là tu vas pour supprimer le second item, mais les collections se ré-ajustes, et le second item est venu combler le trou du 1er item supprimé, et le troisième est venu combler le trou du second (qui est maintenant 1er de la liste), donc c'est le 3éme qui est supprimé et ainsi de suite...

Je ne sais pas si c'est très compréhensible, mais en gros, pas de suppression à l'intérieur de la liste que tu parcours. :P

Le mieux serait de passer par un While.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim i As Integer = 0   While i <> Controls.Count If TypeOf Controls(i) Is Button Then RemoveHandler Controls(i).MouseDown, AddressOf aButton_MouseDown RemoveHandler Controls(i).MouseUp, AddressOf aButton_MouseDown RemoveHandler Controls(i).MouseMove, AddressOf aButton_MouseDown Controls.RemoveAt(i) Else i += 1 End If End While

---

C'est une solution.
Il est aussi possible de gérer les ajouts de contrôles via une collection de contrôles.
Pointer sur un contrôle et le supprimer est moins aléatoire que de faire un for each comme le rappelle _Ez3kiel.

Bonjour,

Est-ce que dans votre panel vous n'avez que des boutons ?
Si oui, vous pouvez faire

Code:

---

1 2 3 4 5 6

For Each b As Button In myPanel.Controls RemoveHandler b.MouseDown, AddressOf aButton_MouseDown RemoveHandler b.MouseUp, AddressOf aButton_MouseUp RemoveHandler b.MouseMove, AddressOf aButton_MouseMove Next myPanel.Controls.Clear()

---

Bonsoir,

_Ez3kiel, merci bien, j'ai parfaitement compris mon probleme maintenant et l'interet d'un "While" au lieu du "ForEach". Votre code est impeccable, ca marche.

rv26t, tres bien devine, et c'est donc dans ce cas la beaucoup plus simple. Mais, la facon de faire de _Ez3kiel est plus generale.

J'utiliserais toutefois la methode de rv26t, si simple que j'aurais du y penser.

Merci encore a tous les 3. C'etait tres interessant pour moi.

A+,
JLuc01