 |
L'effet désiré est assez réussi! Si vous placez des marques de commentaires ( ' ) au début de chaques lignes de la procédure MouseUp (cela aurait pour effet de simuler l'abscence de cette procédure) et que vous démarrez de nouveau l'application, la boudure restera visible et ne disparaîtra pas, quand bien même vous vous acharneriez à cliquer et à recliquer dessus! |
Ha! Ha! Donc, pour qu'un effet ne se produise que lors de l'événement MouseDown - j'entend que l'effet disparaisse après - il faut pour cela que l'on programme l'effet inverse dans une procédure MouseUp.
Jusqu'à maintenant, vous avez fait réagir votre application selon que vous bougiez la souris au dessus d'un contrôle donné (MouseMove), que vous enfonciez le bouton de la souris au dessus d'un contrôle donné (MouseDown) ou que vous relâchiez le bouton de la souris au dessus d'un contrôle donné (MouseUp). Et ce, en contrôlant quel bouton a été enfoncé (argument Button) et selon l'endroit où se trouvait le pointeur au dessus du contrôle (arguments X et Y). Mais à quoi donc peut bien servir l'arguement Shift?