Discussion :

[shayw]

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

Code :

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

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 :

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

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

[Pol63]

à tout hasard :

Code :

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

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 )

[shayw]

Code :

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

In Me.Controls.ToList

ce n'est pas accepté

[Pol63]

Code :

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

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

[chrismonoye]

Bonsoir,
cela semble fonctionner :

Code :

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

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

[shayw]

Merci ça fonctionne

[_Ez3kiel]

Et pourquoi pas

Code :

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

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