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