Problème création événement sur un label
Bonjour,
voici mon problème
Je créé des Label en fonction de mon nombre de machine
Code:
1 2 3 4 5 6 7 8 9 10
| Public Class...
Dim mesMachines(0) As Label
...
Private Sub Creer_Table(sender As Object, e As EventArgs) Handles BT_TABLEAU.Click
...
ReDim Preserve mesMachines(NbTables)
mesMachines(NbTables) = New Label
Me.Panel4.Controls.Add(mesMachines(NbTables))
...
End Sub |
Ce code marche parfaitement mais maintenant je veux pouvoir supprimer ces Label en double cliquant dessus.
Code:
1 2
| Private Sub Suppr_Machines(sender As Object, e As EventArgs) Handles mesMachines(Nbtables).DoubleClick
End Sub |
Pour cela j'ai essayé de faire comme pour un Label classique mais j'ai ce message "Handles clause requires a WithEvents variable defined in the containing type or one of its base type.
Merci pour votre aide :)