dim nomducontrôle as string 'Du moins je pense que c'est une donnée string nomducontrôle = Sender.name
addhandler moncontrole.mouseenter, addressof MaSub
private sub UneSub(sender as object, e as mouseeventargs) '...
private sub UneSub(sender as object, e as mouseeventargs) handles controle1.mouseenter, controle2.mouseenter, .....
nomducontrôle = Sender.name
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question