Discussion :

[thierry007]

Bonjour a tous

Dans un prg je crées des pictubox de façon dynamique sur un SplitContainer.
Ok, pas de problème
Mais lorsque je veux les supprimer tous , là ça ne marche pas en une fois

Code :

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

1
2
3
4
5
 For Each Pbox As PictureBox In SplitContainer1.Panel1.Controls
 
                  Pbox.Dispose()
 
            Next

Quel est le stress

[Sankasssss]

Bonjour,

Tout simplement :

Code :

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

1
2
3
4
5
            For Each Pbox As PictureBox In SplitContainer1.Panel1.Controls
 
                  SplitContainer1.Panel1.Controls.Remove(Pbox)
 
            Next

[thierry007]

Bonjour Sankasssss

Oui aussi, mais même problème lorsque je click sur le bouton BtnNew
Ils ne sont pas tous supprimées en une fois, je dois cliquer 2 , 3 fois
J'ai aussi ajouter un refresh pour être sûre mais rien n'y fait.

Merci quand même d'une réaction rapide au post.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
   Private Sub BtnNew_Click(sender As System.Object, e As System.EventArgs) Handles BtnNew.Click
 
            TxtImmatriculation.Text = String.Empty
 
            For Each Pbox As PictureBox In SplitContainer1.Panel1.Controls
 
                  SplitContainer1.Panel1.Controls.Remove(Pbox)
 
            Next
 
            SplitContainer1.Panel1.Refresh()
 
      End Sub

[Pol63]

à essayer

Code :

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

1
2
3
For Each Pbox As PictureBox In SplitContainer1.Panel1.Controls.ToList
     Pbox.Dispose()
Next

si ca fonctionne c'est le coup classique d'une collection modifiée pendant son itération (par contre normalement ca génère une exception auquel cas tu aurais trouvé la solution)
(.tolist recréé une collection avec le même contenu à l'instant T)

[thierry007]

Bonjour Pol63

Oui, mais

Code :

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

1
2
3
  For Each Pbox As PictureBox In SplitContainer1.Panel1.Controls.ToList
                  Pbox.Dispose()
            Next

me donne: 'ToList' n'est pas un membre de 'system.windows.form.Control.Controlcollection'

[Sankasssss]

J'ai effectivement le même comportement
J'y jette un coup d’œil...

[Sankasssss]

Si c'est juste vider le panel qui t’intéresse, il y a :

Code :

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

 SplitContainer1.Panel1.Controls.Clear()

Ce code fonctionne aussi :

Code :

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

1
2
3
        While SplitContainer1.Panel1.Controls.Count > 0
            SplitContainer1.Panel1.Controls.RemoveAt(0)
        End While

[thierry007]

Si c'est juste vider le panel qui t’intéresse, il y a :

Code :

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

 SplitContainer1.Panel1.Controls.Clear()

Claire net et Précis

Merci bien, cela fonctionne pour moi