Événement CommandButton.MouseMove (Access)

Article
04/07/2023

L’événement MouseMove survient lorsque l’utilisateur déplace la souris.

Syntaxe

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

Expression Variable qui représente un objet CommandButton .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Bouton	Obligatoire	Entier	Bouton activé ou relâché 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.

Remarques

L’événement MouseMove 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é OnMouseMove sur le nom de la macro ou [procédure événementielle].

L'événement MouseMove est généré continuellement lorsque le pointeur de la souris se déplace sur les objets. Sauf si un autre objet génère un événement de souris, un objet reconnaît un événement MouseMove lorsque le pointeur de la souris se trouve à l'intérieur de ses bordures.

Pour déclencher un événement MouseMove dans un formulaire se produise, placez le pointeur de la souris sur une zone vierge, un sélecteur d'enregistrement ou une barre de défilement sur le formulaire. Pour déclencher un événement MouseMove pour une section de formulaire, placez le pointeur de la souris sur une zone vierge de la section de formulaire.

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

Pour exécuter une macro ou une procédure événementielle en réponse à la pression et au relâchement des boutons de la souris, vous utilisez les événements MouseDown et MouseUp.

Exemple

L’exemple suivant détermine où se trouve la souris et si le bouton gauche de la souris et/ou la touche Maj sont enfoncés. Les coordonnées x et y du pointeur de la souris s'affichent dans un contrôle de type étiquette lors du déplacement de la souris.

Private Sub Detail_MouseMove(Button As Integer, _ 
     Shift As Integer, X As Single, Y As Single) 
    Dim intShiftDown As Integer, intLeftButton As Integer 
 
    Me!Coordinates.Caption = X & ", " & Y 
    ' Use bit masks to determine state of 
    ' SHIFT key and left button. 
    intShiftDown = Shift And acShiftMask 
    intLeftButton = Button And acLeftButton 
    ' Check that SHIFT key and left button  
    ' are both pressed. 
    If intShiftDown And intLeftButton > 0 Then 
        MsgBox "Shift key and left mouse button were pressed." 
    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.