Casting avancé (à propos des handlers)

Bonjour,

J'ai deux Sub qui font presque exactement la même chose.

Je voudrais savoir si il y a moyen de "merger" ces deux Sub, en passant en paramètre "AddHandler" ou "RemoveHandler".

Code:

---

1 2 3 4 5 6

Private Sub addHandlers() AddHandler txtNolotocc.LostFocus, AddressOf Lotoccupe_Changed AddHandler cboCadastre.LostFocus, AddressOf Lotoccupe_Changed AddHandler cboDessec.LostFocus, AddressOf Lotoccupe_Changed [...] End Sub

---

Code:

---

1 2 3 4 5 6

Private Sub removeHandlers() RemoveHandler txtNolotocc.LostFocus, AddressOf Lotoccupe_Changed RemoveHandler cboCadastre.LostFocus, AddressOf Lotoccupe_Changed RemoveHandler cboDessec.LostFocus, AddressOf Lotoccupe_Changed [...] End Sub

---

Merci à l'avance,
g0ldenrno

Biensur que oui :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub AddOrRemoveHandler(choix as String) If Choix = "Add" then AddHandler txtNolotocc.LostFocus, AddressOf Lotoccupe_Changed AddHandler cboCadastre.LostFocus, AddressOf Lotoccupe_Changed AddHandler cboDessec.LostFocus, AddressOf Lotoccupe_Changed Elseif Choix = "Remove" then RemoveHandler txtNolotocc.LostFocus, AddressOf Lotoccupe_Changed RemoveHandler cboCadastre.LostFocus, AddressOf Lotoccupe_Changed RemoveHandler cboDessec.LostFocus, AddressOf Lotoccupe_Changed End If End Sub

---

Justement je veux éviter d'avoir à réécrire les mêmes trucs deux fois.

En fait il y a beaucoup que 3 composants et c'est pourquoi je veux éviter de les réécrire 2 fois afin d'alléger le code

Je veux donc savoir si il y a moyen de caster une String en Function

Ex:

Code:

---

1 2	Dim str as String = "AddHandler" ["insert CType here"]str txtNolotocc.LostFocus, AddressOf Lotoccupe_Changed

---

Citation:

---

Envoyé par Aspic

Biensur que oui :)

Code:

---

1 2	Private Sub AddOrRemoveHandler(choix as String) End Sub

---

---

Pour ce genre de situation, il existe les enum. C'est tout de même plus propre, non ? :)

Pour le problème qui nous intéresse, je ne suis pas sûr qu'il existe une solution plus générique, étant donné que AddHandler est un mot-clé et pas une méthode d'une classe.

C'est ce que je croyais...

Merci!

Citation:

---

Envoyé par g0ldenrno

Justement je veux éviter d'avoir à réécrire les mêmes trucs deux fois.

En fait il y a beaucoup que 3 composants et c'est pourquoi je veux éviter de les réécrire 2 fois afin d'alléger le code

Je veux donc savoir si il y a moyen de caster une String en Function

Ex:

Code:

---

1 2	Dim str as String = "AddHandler" ["insert CType here"]str txtNolotocc.LostFocus, AddressOf Lotoccupe_Changed

---

---

pas d'une manière simple non
mais par contre sur la base d'aspic tu peux faire une sub spéciale

Code:

---

1 2 3

private sub gerehandler(param as string) if param = "add" then add else remove

---

add et remove étant tes 2 subs séparées

enfin à mon avis tu cherches à réduire les lignes de codes et non à simplifier l'appel donc ca ne doit pas te convenir non plus

sinon cherche si callbyname() peut t'aider mais comme le dit saumonagile c'est pas un objet, enfin si mais pas trop accessible en tant que tel je pense

Parfait merci pour le CallByName je regarde ça.

addhandler est une sub de l'objet System.ComponentModel.EventHandlerList

Bon j'abandonne :cry:

Rien à faire avec le CType et le CallByName


Merci à tous

Citation:

---

Envoyé par g0ldenrno

Bon j'abandonne :cry:

Rien à faire avec le CType et le CallByName


Merci à tous

---

Normal AddHandler et RemoveHandler sont des mots clefs et donc il n'est pas possible de faire ce que tu souhaites faire.

Cependant, avec ma méthode il n'y a pas de probleme mais si tu as 30 Add ou RemoveHandler alors c'est sur que ma méthode n'est pas adequate mais tu ne pourras pas faire de boucles puisque les events ne sont pas les memes.

Good luck