Événement NavigationButton.MouseDown (Access)

  • Article

L'événement MouseDown se produit lorsque l'utilisateur appuie sur un bouton de la souris.

Syntaxe

expression. MouseDown (Button, Shift, X, Y)

Expression Variable qui représente un objet NavigationButton .

Parameters

Nom Requis/Facultatif Type de données Description
Bouton Obligatoire Entier Bouton activé pour déclencher l'événement. Si vous avez besoin de tester l’argument Button , vous pouvez utiliser l’une des constantes intrinsèques suivantes comme masques de bits :

  • acLeftButton Le masque de bits pour le bouton gauche de la souris.

  • acRightButton Le masque de bits pour le bouton droit de la souris.

  • acMiddleButton Le masque de bits pour le bouton central de la souris.
Shift Obligatoire Integer État des touches Maj, Ctrl et Alt lorsque le bouton spécifié par l’argument Bouton a été enfoncé ou relâché. Si vous devez tester l’argument Shift , vous pouvez utiliser l’une des constantes intrinsèques suivantes comme masques de bits :

  • acShiftMask Masque de bits de la touche Maj.

  • acCtrlMask Masque de bits de la touche Ctrl.

  • acAltMask Masque de bits de la touche Alt.
X Obligatoire Unique Coordonnée x de l’emplacement actuel du pointeur de la souris, en twips.
Y Obligatoire Unique Coordonnée y pour l’emplacement actuel du pointeur de la souris, en twips.

Valeur renvoyée

Aucune

Remarques

L’événement MouseDown s’applique uniquement aux formulaires, sections de formulaire et contrôles d’un formulaire, et non aux contrôles d’un état.

Cet événement ne s'applique pas à une étiquette attachée à un autre contrôle, telle que l'étiquette d'une zone de texte. Il ne s'applique qu'aux étiquettes « autonomes ». Si vous appuyez et relâchez le bouton de la souris dans une étiquette attachée, cela revient à appuyer et à relâcher le bouton dans le contrôle associé. Les événements normaux du contrôle surviennent ; aucun événement différent ne se produit pour l'étiquette attachée.

Pour exécuter une macro ou une procédure événementielle lorsque ces événements se produisent, définissez la propriété OnMouseDown sur le nom de la macro ou [procédure événementielle].

Utilisez un événement MouseDown pour spécifier ce qui se passe lorsqu’un bouton de souris particulier est enfoncé ou relâché. Contrairement aux événements Click et DblClick, l'événement MouseDown vous permet de faire la distinction entre les boutons gauche, droit et central de la souris. Vous pouvez également écrire du code pour les combinaisons souris-clavier qui utilisent les touches Maj, Ctrl et Alt.

Pour déclencher un événement MouseDown dans un formulaire, appuyez sur le bouton de la souris dans une zone vierge ou un sélecteur d'enregistrement du formulaire. Pour déclencher un événement SourisAppuyée pour une section de formulaire, appuyez sur le bouton de la souris dans une zone vierge de la section de formulaire.

Les actions suivantes s'appliquent aux événements MouseDown:

  • Si un bouton de la souris a été enfoncé pendant que le pointeur se trouve sur un formulaire ou un contrôle, cet objet reçoit tous les événements de souris jusqu'à et y compris le dernier événement MouseUp.

  • Si vous appuyez successivement sur les boutons de la souris, l'objet qui reçoit l'événement de la souris consécutif au premier clic recevra tous les événements suivants jusqu'à ce que tous les boutons soient relâchés.

Pour répondre à un événement provoqué par le déplacement de la souris, vous utilisez un événement MouseMove.

Exemple

L’exemple suivant montre comment déterminer quel bouton de souris a provoqué un événement MouseDown .

Pour essayer cet exemple, ajoutez au formulaire la procédure événementielle ci-dessous.

Private Sub Form_MouseDown(Button As Integer, _ 
 Shift As Integer, X As Single, _ 
 Y As Single) 
 If Button = acLeftButton Then 
 MsgBox "You pressed the left button." 
 End If 
 If Button = acRightButton Then 
 MsgBox "You pressed the right button." 
 End If 
 If Button = acMiddleButton Then 
 MsgBox "You pressed the middle button." 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.