Bonjour,

Je veux ajouter un evenement click a des lables sachant que les labels sont crier dynamiquement pas avec sélectionner glisser .

Moi que je Click sur une label le style des bordure change et pour ça j'ai crier une procédure pour faire ça car j'ai plein des labels

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 Public Sub selectionerLabel(ByVal lbl As Label, ByVal sender As Object, ByVal e As EventArgs)
        lbl.BorderStyle = BorderStyle.Fixed3D
    End Sub
et voici le code pour crier les labels

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 Public Sub ajouterLabel(ByVal x As Double, ByVal y As Double, ByVal text As String, ByVal frm As Form, ByVal name As String)
        Dim lbl As Label
        lbl = New Label
        lbl.Name = name
        lbl.Text = text.ToString
        lbl.AutoSize = True
        lbl.Location = New Point(x, y)
        lbl.BorderStyle = BorderStyle.FixedSingle
        lbl.AllowDrop = True
        AddHandler lbl.Click, AddressOf selectionerLabel(lbl)
        frm.Controls.Add(lbl)
        frm.Update()
    End Sub
et le vrai probleme qu'il n'accepte pas ce ligne AddressOf selectionerLabel(lbl)

et merci d'avance pour votre aide