L'arguement Shift sert à déterminer si l'une des touches ALT, MAJ ou CTRL était enfoncée au moment où l'utilisateur appuie sur (ou relâche) l'un des boutons de la souris. Ou, si vous préférez, ça vous permet d'ajouter des options à vos événements souris. De plus, on peut aussi détecter la combinaison de ces différentes touches.
| Valeurs | Touche(s) |
|---|---|
| 0 | Aucune |
| 1 | MAJ |
| 2 | CTRL |
| 4 | ALT |
| 3 | MAJ + CTRL |
| 5 | MAJ + ALT |
| 6 | CTRL + ALT |
| 7 | MAJ + CTRL + ALT |
Nous voulons vérifier (du moins, je le
suppose) si l'utilisateur maintenait enfoncé une ou
plusieurs de ces touches au moment où il a cliqué
avec le bouton gauche (mais pas le droit) et faire apparaître
un message l'avisant de son action.
Il serait long et fastidieux de répéter
à chaque fois la condition Shift = quelque chose pour
chaque If et chaque ElseIf. C'est ici qu'intervient
la structure de contrôle Select Case si pratique pour
vérifier la valeur d'un argument ou d'une variable. Nous allons
aussi utiliser la fonction MsgBox en tant qu'instruction. Pas de
parenthèses, pas de variables, pas traitement de réponses.
Le plus simple qui soit, quoi!