AddHandler avec Handler qui prend ses arguments lors d'une boucle

Bonjour à tous,

Je suis débutant en VB.NET et je rencontre actuellement un problème lors de l'attribution d'EventHandlers à des contrôles crées dynamiquement.
En résumé à chaque création d'une nouvelle DropDownItem dans le menu de mon application, je veux lui attribuer l'exécution d'une Sub qui prend des arguments dépendant de la DropDownItem cliquée.
Par exemple si je clique sur "Calculateur n°1", une fenêtre aux caractéristiques du calculateur n°1 doit être crée pas la Sub. Ainsi de suite avec "Calculateur n°2" etc...

Voici le bout code en question:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

For i As Integer = 0 To NumberOfECU - 1 Dim j As Integer j = i   TCFMonitoringTool.CalculateursToolStripMenuItem.DropDownItems.Add(menuArray(i, 2)) 'Création dynamique du menu des Calculateurs AddHandler TCFMonitoringTool.CalculateursToolStripMenuItem.DropDownItems.Item(i).Click, Sub(senderObj, args) _ beforeCreateECU(TCFMonitoringTool.CalculateursToolStripMenuItem.DropDownItems.Item(j), j)   Next     Sub beforeCreateECU(ByVal menuItem As ToolStripItem, ByVal ECUline As Integer)   Dim i As Integer = 0 Dim ECUCreated As Boolean = False   While ECUCreated = False   If IsNothing(ECU(ECUline, i)) = False AndAlso ECU(ECUline, i).Text = "" Then   createECU(ECUline, i, menuItem) ECUCreated = True   ElseIf IsNothing(ECU(ECUline, i)) = True Then   createECU(ECUline, i, menuItem) ECUCreated = True Else i = i + 1 End If End While   End Sub

---

Suite à ceci, j'ai bien les DropDownItems qui apparaissent dans le menu de l'application, avec les nom corrects, mais lorsque je clique par exemple sur celle qui s'appelle "Calculateur n°1", c'est une fenêtre à l'image de "Calculateur n°6" qui apparaît. C'est à dire le dernier calculateur de ma liste, donc la dernière itération de la boucle For.
Pourquoi les arguments envoyés à ma Sub sont systématiquement les mêmes, quel que soit la DropDownItem cliquée? Pourtant dans AddHandler je précise bien que chaque Item(i) doit avoir sa propre Sub(argument1(i), argument2(i)) associée?

Merci d'avance pour votre aide.

la première chose à vérifier c'est de mettre un point d'arret dans la méthode pour voir si les arguments sont les bons
si c'est le cas c'est le code d'après qui ne fait pas ce qu'il faut

avec par exemple un espion express sur (menuitem is TCFMonitoringTool.CalculateursToolStripMenuItem.DropDownItems.Item(0)) pour un clic sur le 1er item

Merci pour votre aide Pol63,

J'ai crée un espion express comme vous l'avez préconisé mais ça ne fonctionne pas. Mon grand problème sur cette ligne AddHandler c'est que je ne peux rien visualiser durant le débogage.

il faut mettre un point d'arret (F9) sur
Sub beforeCreateECU(ByVal menuItem As ToolStripItem, ByVal ECUline As Integer)

et là faire un espion express (shift+F9) pour vérifier le contenu de menuItem et ECUline

D'accord j'avais mal compris, donc ca me donne à chaque fois:
menuItem = {Calculateur 6}
ECUline = 6
autrement dit les dernières infos de la boucle For qui s'est produite dans la fonction précédente.
On dirait donc que la Sub fonctionne bien (elle m'affiche effectivement une fenêtre) mais pas avec les bons arguments (la fenêtre n'est pas celle décrivant le Calculateur demandé)

tu peux tenter de mettre un point d'arret sur le AddHandler mais avec la méthode anonyme ca ne simplifie pas le débuggage

sinon tu peux faire la méthode standard, à savoir faire addhander , addressof laméthode

et dans la méthode tu as sender qui est l'élement déclencheur, ce qui revient quasiment au même que ce que tu fais sans créer x méthodes anonymes

Merci effectivement il y a du mieux!
Maintenant le senderObj est bien reconnu et la fenêtre qui s'affiche possède le même nom que la dropDownItem sur laquelle j'ai cliqué. Cependant la mise en forme ne suit pas puisque je n'ai pas trouvé de moyen d'utiliser le sender pour affecter ECULine (qui du coup reste à 0 et dessine une fenêtre correspondant uniquement à Calculateur 0)

Exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub beforeCreateECU2(ByVal senderObj As Object, ByVal e As System.EventArgs)   Dim i As Integer = 0 Dim ECUCreated As Boolean = False Dim ECULine As Integer = 0   While ECUCreated = False If IsNothing(ECU(ECULine, i)) = False AndAlso ECU(ECULine, i).Text = "" Then 'If ECU(2, i).Text = "" Then 'ECU(2, i).Visible = True createECU(ECULine, i, senderObj) ECUCreated = True 'End If ElseIf IsNothing(ECU(ECULine, i)) = True Then createECU(ECULine, i, senderObj) ECUCreated = True Else i = i + 1 End If End While   End Sub

---

Comment puis-je faire pour modifier ECULine en fonction du senderObj? Puis-je détecter si le senderObj est l'Item 0 du ToolStripMenu par exemple?

Citation:

---

Envoyé par Pulcrix

Comment puis-je faire pour modifier ECULine en fonction du senderObj? Puis-je détecter si le senderObj est l'Item 0 du ToolStripMenu par exemple?

---

ca doit être faisable mais pas de manière très propre
une des méthodes propres pour une lier une variable à une autre est d'utiliser un dictionary

Code:

---

private _dicoMenuItems as new collections.Generic.Dictionary(Of tollstripitem, integer)

---

et dans la boucle après le addhandler :

Code:

---

_dicoMenuItems.add( ... .items(j),j)

---

ensuite dans la sub liée à l'event :

Code:

---

dim ECUline as integer = _dicoMenuItems(directcast(sender, tollstripitem))

---

une autre méthode est de faire une classe qui inherits de toolstrip item, ce qui permet de l'ajouter dans le menustrip comme une instance normale, et de lui ajouter la ou les propriétés qu'on voudrait qu'elle ait
ensuite avec un cast on peut accéder à toutes les propriétés
après on pourrait alors même lui mettre une méthode d'ouverture du form, et appeler cette méthode sur l'event, et avec un peu de chance, on peut faire overrides OnClick dessus pour lui faire ouvrir le form, et donc ce passer du addhandler dans la boucle ^^ (cette possibilité dépend de la classe de base que je ne connais pas, elle ne gère peut etre pas son event click toute seule)

Merci beaucoup pour votre aide ça marche parfaitement!

J'ai utilisé votre première proposition et les fenêtres s'affichent désormais avec le nom correct et la mise en forme souhaitée.

Merci encore, et bonne fin de journée.