Supprimer des controls de la form

Version imprimable

Bonjour
J'ai une liste de pictureboxes ajoutés dynamiquement à me
le name de chacun est "lettres0" , "lettres1"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private listlettre As New List(Of PictureBox)
private sub initialize()
 For iter = 0 To 9
     Dim thepiclettre As New PictureBox
        With thepiclettre
              .Name = "lettres" & iter.ToString
               listlettre.Add(thepiclettre)
                Me.Controls.Add(thepiclettre)
          End With
     next 
end sub
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  initialize()
end sub

Ce que je voudrais c'est de supprimer de la form les picturesbox nommés
lettres0 à lettres9

Code:

1
2
3
4
5
6
7
8
9
Dim x As Integer = 10
        For Each ctlr As Control In Me.Controls
            If TypeOf ctlr Is PictureBox Then
                If ctlr.Name.StartsWith("lettres") Then
                    x -= 1
                    ctlr.Dispose()
                End If
            End If
        Next

bizarre à la sortie de la boucle x =5 ? et pas tous les picturebox sont supprimés :?

merci

02/02/2014, 20h30
Pol63

à tout hasard :

Code:

For Each ctlr As Control In Me.Controls.ToList

à vrai dire je suis étonné que ca ne plante pas, car modifier une collection pendant son itération plante en général
.Dispose sur un control le retire de la collection Controls de son parent
.ToList effectue une copie des pointeurs des éléments dans un nouvelle variable, donc .Dispose n'affecte pas ce List(Of )
02/02/2014, 20h36
shayw

Code:

In Me.Controls.ToList

ce n'est pas accepté
02/02/2014, 22h32
Pol63

Code:

In Me.Controls.OfType(Of Picturebox)

au passage vous n'aurez plus besoin du if typeof
oftype retourne un ienumerable, donc ce n'est pas la collection Controls donc ca évite aussi d'itérer sur Controls

Bonsoir,
cela semble fonctionner :

Code:

1
2
3
4
5
6
7
        For x = 0 To 7
            For Each ctrl As Control In Me.Controls.OfType(Of PictureBox)()
                If ctrl.Name.StartsWith("lettres" & x.ToString) Then
                    ctrl.Dispose()
                End If
            Next
        Next

A voir...

03/02/2014, 09h48
shayw

Merci ça fonctionne ;)

Et pourquoi pas

Code:

1
2
3
        For i As Integer = 0 To 7
            Controls.RemoveByKey("lettres" & i.ToString)
        Next

:koi:

03/02/2014, 11h08
shayw

Encore mieux
03/02/2014, 14h06
wallace1

Bien vu _Ez3kiel. Merci.:ccool:

Pas de quoi, j'étais en train de réfléchir à une solution Linq (qui marche mais peut-être optimisé)
Code:

1 2 3 4 5 6 Dim listPictureBox = From ctrl In Me.Controls.OfType(Of PictureBox)() Where ctrl.Name.Contains("lettres") Select ctrl For i As Integer = 0 To 7 Controls.Remove(listPictureBox(0)) Next
Quand je me suis rappelé l'existence de RemoveByKey :aie: