Discussion :

[6ril25]

bonjour tout le monde,

je crée des controles (bouton et label) dans un panel grâce à Add:

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
16
17
18
19
20
21
MyButton = New Button
MyButton.ForeColor = Couleur
MyButton.Font = New System.Drawing.Font(Me.Label_Exemple.Font, FontStyle.Bold)
MyButton.Text = "Valider" 
MyButton.Name = "MyVal_" & Req.Fields("id").Value
MyButton.Location = New Point(xPos, yPos)
MyButton.Width = 57
MyButton.Height = 22
AddHandler MyButton.Click, AddressOf MyButton_ActionClick
Me.MonPanel.Controls.Add(MyButton)
 
MyLabel = New Label
MyLabel.ForeColor = Couleur
MyLabel.Font = New System.Drawing.Font(Me.Label_Exemple.Font, FontStyle.Bold)
MyLabel.Text = MyNZ(Req.Fields("dt").Value, "") 
MyLabel.Name = "MyDt_" & Req.Fields("id").Value
MyLabel.Location = New Point(xPos, yPos)
MyLabel.AutoSize = True
MyLabel.Width = 110
AddHandler MyLabel.Click, AddressOf MyButton_ActionClick
Me.MonPanel.Controls.Add(MyLabel)

Et je les supprime par ce script:

Code :

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

1
2
3
4
5
6
7
8
Dim T_L() As String
For Each L As Control In Me.monPanel.Controls
  T_L = Split(L.Name, "_")
  If MyNZ(T_L(0), "") = "MyVal" or MyNZ(T_L(0), "") = "MyDt" Then
    RemoveHandler L.Click, AddressOf MyButton_ActionClick
    Me.MonPanel.Controls.Remove(L)
  End If
Next

Si la création ne pose pas de problème, je n'arrive pas systématiquement à "effacer/supprimer" tous les contrôles, comme si le "For Each" ne parcourait pas toute la collection...

Vous auriez des idées??

[6ril25]

Bon et bien, j'ai trouvé une solution: enregistrer dans un tableau tous les contrôles créés à la volée et le parcourir pour les supprimer un à un...

Mais à savoir pourquoi mon "for each" ne parcourt pas tous les contrôles, et bien aucune idée.
Je laisse donc ce sujet ouvert, si jamais l'un de vous aurait une info...