Discussion :

[Golzinne]

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

[HULK]

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

[Golzinne]

Merci pour ta réponse.

Je ne peux malheureusement déclarer une variable avec WithEvents

'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.

[Golzinne]

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

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

[DonF]

Renseigne la méthode click de tes controle dynamiques

[Golzinne]

DonF a écrit:

Renseigne la méthode click de tes controle dynamiques

Peux-tu être un peu plus explicite ?

[DonF]

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.

[Golzinne]

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"...

[NiamorH]

Fait comme ça :

Code :

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

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

Et plus bas :

Code :

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

1
2
3
Private Sub LB_Click(sender,e)
'
End Sub

[Golzinne]

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 ?

[NiamorH]

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 :

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

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 :

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

RaiseEvent OnMaClike(Me,new e)

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 :

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

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 :

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

1
2
3
Private Sub LB_Click(sender,e)
'
End Sub

[Golzinne]

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

Pour le point 1° dans

Code :

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

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 :

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

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

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

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 ?

[NiamorH]

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

[Golzinne]

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 :

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

Public Event OnMaClike(sender,e)

Pour le 2°

Ca marche super

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

Encore merci

[NiamorH]

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