Discussion :

[g0ldenrno]

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 :

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

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 :

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

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

[Aspic]

Biensur que oui

Code :

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

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

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

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

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

[Pol63]

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 :

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

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 :

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

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

[g0ldenrno]

Parfait merci pour le CallByName je regarde ça.

[Pol63]

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

[SaumonAgile]

Biensur que oui

Code :

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

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.

[g0ldenrno]

C'est ce que je croyais...

Merci!