Ajouter event a une label

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:

---

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:

---

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 :oops:

essaye en déclarant ton label de cette maniére

Code:

---

Private WithEvents lbl As Label

---

Bonjour,

Merci pour la reponse mais il marche pas :cry:

toujours il n'accepte pas cette ligne

Code:

---

AddressOf selectionerLabel(lbl)

---

il m'écrit

Citation:

---

Erreur 1 L'opérande 'AddressOf' doit être le nom d'une méthode (sans parenthèses).

---

pourquoi tu a besoin de ce "AdressOf" ?? a quoi il sert?

AdressOf c'est pour déterminer la procédure a exécuter qu'on en click sur label.

vos aviez une méthode pour appelez la procédure ??

Code:

---

1 2 3

Public Sub selectionerLabel(ByVal lbl As Label) lbl.BorderStyle = BorderStyle.Fixed3D End Sub

---

Et puis c'est normale que sa marche pas ....

tu déclare la fonction suivante:

Code:

---

1 2 3

Public Sub selectionerLabel(ByVal lbl As Label, ByVal sender As Object, ByVal e As EventArgs) lbl.BorderStyle = BorderStyle.Fixed3D End Sub

---

jusque la c'est bon
mais après tu l'appel en lui spécifiant 1 argument sur 3 ...

Code:

---

selectionerLabel(lbl)

---

il faudrait un turc du genre :

Code:

---

selectionerLabel(lbl, "sender", "e")

---

en tout cas moi il se plaint

http://img130.imageshack.us/img130/8...stitre2mwv.png

ah mais non XD

regarde l'exemple qu'il te donne avec F1

http://img101.imageshack.us/img101/2...nstitre3wr.png

en résumé, ce que tu met aprés AdressOf
c'est ce qui va etre la :
http://img96.imageshack.us/img96/8764/sanstitre3po.png

enfin tout sa ne sont que des suppositions mais je pense pas trop m'égarer ;)

Bonjour,


donc j'ai modifier le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private WithEvents lbl As Label Public Sub selectionerLabel(ByVal lbl As Label) lbl.BorderStyle = BorderStyle.Fixed3D End Sub Public Sub ajouterLabel(ByVal x As Double, ByVal y As Double, ByVal text As String, ByVal frm As Form, ByVal name As String)   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

---

mais toujours la même chose .le problème que AdressOf n'accepte pas une procédure avec des paramètres :cry:

il y a une méthode pour affecter la procédure selectionerLabel a l'évènement click avec des paramètres ? :)

Mais sa a rien a voir je viens de te dire ...
la tu ajoute un événement a ton label, *ce que tu arrive très bien a faire*
et ce que tu met après le AdressOf, c'est le nom de la fonction qui fait appel au click sur le label

après c'est dans:

private sub lbl_Click etc.
que tu doit mettre le chois de ton BorderStyle

désole je n'est pas vu ton 3ème message mais il marche très bien merci beaucoup