[VB.NET]evenement sur un controle ajouté par code

Bonjour,


J'ai dans un formulaire un flowLayoutPanel créé avec le designer.

J'y ajoute un nombre variable d'instances d'un userControl par code (donc à l'exécution). A l'exécution, je vois bien mes différentes occurences de mon userControl (ce sont des adresses).

Je voudrais pouvoir créer un "simple" événement click sur chacune de mes adresses de mon flowLayoutPanel.

Quelqu'un peut-il m'aider ?

Merci

il faut utiliser WithEvents dans don Dim il me semble

http://msdn.microsoft.com/library/fre/default.asp?url=/library/FRE/vblr7/html/vakeyWithEvents.asp

Merci pour ta réponse.

Je ne peux malheureusement déclarer une variable avec WithEvents

Citation:

---

'WithEvents' is not valid on a local variable declaration

---

au niveau local. Or comme j'ai un nombre variable d'instances je ne vais pas en déclarer un nombre limité au niveau du formulaire, car je risquerais de devoir dépasser ce nombre.

Apparement, je dois plutôt m'orienter vers AddHandler.

Je cherche, mais si quelqu'un a des exemples, il est le bienvenu...

Renseigne la méthode click de tes controle dynamiques ;)

DonF a écrit:

Citation:

---

Renseigne la méthode click de tes controle dynamiques

---

Peux-tu être un peu plus explicite ?

Est ce que ton usercontrol dispose d'une méthode click? Si oui, c'est là que tu doit implementer le code à exécuter. Sinon tu peux toujours rajouter cette methode.

Oui, je peux gérer l'événement "Click" de mon UserControl. Si je clique sur le nom d'une adresse, j'ai par exemple un messageBox "monNom" qui apparait. Mais je ne veux pas déclencher un événement au niveau du user control mais bien dans le formulaire qui gère mon flowLayoutPanel.

Je voudrais donc pouvoir cliquer sur la première instance de mon userControl dans mon flowLayoutPanel et recevoir un msgbox "Vous avez cliqué sur UsrCtrl1"...

Fait comme ça :

Code:

---

1 2	Dim LB as new label AddHandler LB.Click, AddressOf LB_Click

---

Et plus bas :

Code:

---

1 2 3

Private Sub LB_Click(sender,e) ' End Sub

---

Pour la gestion du click, ça fonctionne !

J'ai malheureusement encore deux "Hics"

1° Je m'attendais à ce que quand je clique n'importe ou sur mon user Control, j'ai le message. Je dois en fait cliquer à un endroit (vide) ou je n'ai pas de labels( et ils sont très petits ces endroits)

2° Dès le moment ou j'ai un nombre variable de UserControls qui viennent sur mon FlowLayoutPanel. Comment puis-je générer les handler dans une boucle ?

Citation:

---

Envoyé par Golzinne

1° Je m'attendais à ce que quand je clique n'importe ou sur mon user Control, j'ai le message. Je dois en fait cliquer à un endroit (vide) ou je n'ai pas de labels( et ils sont très petits ces endroits)

---

Pour ça je ne vois pas d'autre solution que de modifier ton usercontrol de base:

Code:

---

Private Event OnMaClike(sender,e)

---

Dans l'evenement click du usercontrol ainsi que dans l'évènement Click de chaque Label à l'intérieur du user control:

Code:

---

RaiseEvent OnMaClike(Me,new e)

---

Citation:

---

Envoyé par Golzinne

2° Dès le moment ou j'ai un nombre variable de UserControls qui viennent sur mon FlowLayoutPanel. Comment puis-je générer les handler dans une boucle ?

---

Fais comme ça :

Code:

---

1 2 3 4 5

Dim US as UserControl1 For i = 1 to nbUserControlACreer UC = New UserControl1 AddHandler UC.OnMaClicke, AddressOf LB_Click Next

---

Et plus bas :

Code:

---

1 2 3

Private Sub LB_Click(sender,e) ' End Sub

---

Grâce à toi, je sens que j'approche...

Pour le point 1° dans

Code:

---

RaiseEvent OnMaClike(Me,new e)

---

le (Me, new e) ne fonctionne pas, il ne me propose pas le "e". (Si je met pas le new, je peux l'écrire mais alors ça ne marche pas)

Peut-être dois-je faire un import de quelque chose ?

Pour le point 2° j'arrives à créer mes userControls dans une boucle, mais si je met

Code:

---

1 2 3

Private Sub LB_Click(sender,e) msgbox(sender.toString) End Sub

---

je reçois, quel que soit le userControl cliqué:

Citation:

---

WindowsControlLibrary1.AdresseUserCtrl

---

c'est à dire, et ça me parait normal, que comme je n'ai qu'un événement pour tous mes contrôles, je reçois le même message. y-a-t'il moyen de récupérer le nom ou l'objet qui a déclenché l'événement ?

excuse moi, j'ai mis new e pour abréger:
il faut traduire : new system.eventargs ou qqc dans le genre ( regarde la signature de n'importe quel click )

de même pour :
Private Sub LB_Click(sender,e)
traduire par :
Private Sub LB_Click(sender as object ,e as system.eventargs)

Ensuite pour afficher le nom d'un usercontrol :
Sender désigne bien ton usercontrol mais sender est de type Object donc tu ne peux pas atteindre la propriété "Name".
Pour y remédier tu fais ça :

Dim UC as LeTypeDeTonUserControl = sender

Et maintenant tu dois pouvoir atteindre UC.Name

voila

Pour le 1°

merci pour ta précision, j'ai complété et ca fonctionne !

J'ai juste du mettre Public mon événement .

Code:

---

Public Event OnMaClike(sender,e)

---

Pour le 2°

Ca marche super

Pour le tout je dis :bravo: et :merci:
tu as une faculté étonante de comprendre les problèmes surtout d'y apporter les bonnes solutions.

Encore merci

Merci ça fait plaisir. :D
Ce sont des problèmes que j'ai eu donc je vois bien comment répondre pour t'aider!