Discussion :

[JLuc01]

Bonsoir,

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

Code :

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

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

[_Ez3kiel]

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.

Le mieux serait de passer par un While.

Code :

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

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

[The_Big_Lebowski]

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.

[rv26t]

Bonjour,

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

Code :

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

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

[JLuc01]

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