Suppression de controle

Voila en fait je crée des textbox dynamiquement.
Pour chaque valeur d'un tableau cela me crée une textbox portant le nom
Box & valeur
donc la valeur chanque constament.

Maintenant je voudrais pouvoir supprimer d'une part toutes les textbox d'autre part une par une.

Je suppose qu'en supprimant un element du tableau, mon formulaire rechargera en fonction des éléments du tableau et donc la textbox sera effacer, et l'affichage sera correct (au lieu que je me retrovuerais avec un espace libre)

Mais comment supprimer toutes les textbox présente sur ma form a la fermeture de celle ci?
je voudrais que les textbox soit généré en fonction de mon tableau a chaque ouverture de celui ci.

voici le code qui me genere mes textbox dynamiquement en fonction d'un tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Imports System.IO
 
Public Class Rappels
 
    Dim lecture As String
    Dim tabrappels As String()
    Dim box As TextBox
    Dim checkbox As CheckBox
 
    Sub Lire_Fichier_Rappels()
 
        Dim srrappels As StreamReader = File.OpenText("\My Documents\aip_ressources\Rappels.txt")
 
        Dim fichier As String
 
        Do
 
            fichier = srrappels.ReadToEnd
 
            If Not fichier Is Nothing Then
 
                tabrappels = fichier.Split(",")
                srrappels.Close()
                Dim i As Integer
 
                For Each valeur As String In tabrappels
                    '
                    If valeur = "" Then
                    Else
                        i = i + 1
                        Dim SR As StreamReader = File.OpenText("\My Documents\aip_ressources\Rappels\" & valeur & ".txt")
                        lecture = SR.ReadToEnd
 
                        box = New TextBox
                        box.Name = "Box" & valeur
 
 
                        box.Multiline = True
                        box.ReadOnly = True
                        box.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
                        box.Size = New System.Drawing.Size(234, 38)
 
                        box.Left = 20
                        box.Top = i * 40
                        box.Width = 200
                        box.Text = lecture
                        Me.Controls.Add(box)
 
                        SR.Close()
                    End If
 
 
                Next
                Exit Do
            End If
 
 
        Loop Until fichier Is Nothing
 
 
 
    Private Sub Rappels_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Lire_Fichier_Rappels()
    End Sub

PS:j'ai essayé comme cela

Citation:

Me.Controls.Remove(box)

Mais j'arrive pas a le faire pour plusieurs box dynamique.

Un peu d'aide serait la bienvenue...

merci d'avance

Peut être comme ça ?

Code:

1
2
3
4
5
6
 
For Each tb As Control In Me.Controls
            If tb.GetType Is GetType(TextBox) Then
                Me.Controls.Remove(tb)
            End If
Next

Citation:
Envoyé par Cyrilange
Peut être comme ça ?
Code:

1 2 3 4 5 6 For Each tb As Control In Me.Controls If tb.GetType Is GetType(TextBox) Then Me.Controls.Remove(tb) End If Next
Merci c'est exactement ce dont j'avais besoin :)

Le for each est dangereux à utiliser lors d'une suppression.
lors de la suppression l'index des éléments et récalculer immédiatement.

ex:
un tableau de 3 objets

avec un for each si tu supprimes l'élément 1 , l'élément 2 va descendre d'un cran mais ton curseur lui pas passer au rang suivant c'est à dire au 3e élément.
donc l'élément 2 ne sera jamais traiter, etc...

donc lors d'une suppression il vaut mieux faire une boucle for i

ex :

for i = Maliste.count-1 to 0 step -1

next i

et là tous les éléments sont traité