Evento Form. MouseMove (Access)Form.MouseMove event (Access)

El evento MouseMove se produce cuando el usuario mueve el mouse.The MouseMove event occurs when the user moves the mouse.

SintaxisSyntax

expresión. MouseMove (Botón, MAYÚS, X, Y)expression.MouseMove (Button, Shift, X, Y)

expresión Variable que representa un objeto Form.expression A variable that represents a Form object.

ParámetrosParameters

NombreName Obligatorio/opcionalRequired/Optional Tipo de datosData type DescripciónDescription
ButtonButton ObligatorioRequired IntegerInteger Botón que se presionó o se soltó cuando se desencadenó el evento.The button that was pressed or released when the event was triggered. Si necesita probar el argumento Button , puede usar una de las siguientes constantes intrínsecas como máscaras de bits:If you need to test for the Button argument, you can use one of the following intrinsic constants as bit masks:
  • acLeftButton Máscara de bits para el botón primario del mouse.acLeftButton The bit mask for the left mouse button.

  • acRightButton Máscara de bits para el botón secundario del mouse.acRightButton The bit mask for the right mouse button.

  • acMiddleButton Máscara de bits para el botón central del mouse.acMiddleButton The bit mask for the middle mouse button.

ShiftShift ObligatorioRequired IntegerInteger Estado de las teclas Mayús, Ctrl y Alt cuando se presionó o liberó el botón especificado por el argumento Button .The state of the Shift, Ctrl, and Alt keys when the button specified by the Button argument was pressed or released. Si necesita probar el argumento Shift , puede usar una de las siguientes constantes intrínsecas como máscaras de bits:If you need to test for the Shift argument, you can use one of the following intrinsic constants as bit masks:
  • acShiftMask Máscara de bits para la tecla Mayús.acShiftMask The bit mask for the Shift key.

  • acCtrlMask Máscara de bits para la tecla Ctrl.acCtrlMask The bit mask for the Ctrl key.

  • acAltMask Máscara de bits para la tecla Alt.acAltMask The bit mask for the Alt key.

XX ObligatorioRequired SingleSingle Coordenada x de la ubicación actual del puntero del mouse, en twips.The x coordinate for the current location of the mouse pointer, in twips.
YY ObligatorioRequired SingleSingle Coordenada y de la ubicación actual del puntero del mouse, en twips.The y coordinate for the current location of the mouse pointer, in twips.

ObservacionesRemarks

El evento MouseMove se aplica sólo a formularios, secciones de formularios y controles de un formulario, y no a los controles de un informe.The MouseMove event applies only to forms, form sections, and controls on a form, and not to controls on a report.

Este evento no se aplica a una etiqueta asociada a otro control, como la etiqueta de un cuadro de texto.This event does not apply to a label attached to another control, such as the label for a text box. Sólo se aplica a las etiquetas "independientes".It applies only to "freestanding" labels. La acción de presionar y soltar un botón del mouse en una etiqueta asociada tiene el mismo efecto que presionar y soltar el botón en el control asociado.Pressing and releasing a mouse button in an attached label has the same effect as pressing and releasing the button in the associated control. Se producirán los eventos normales para el control, y ninguno para la etiqueta adjunta.The normal events for the control occur; no separate events occur for the attached label.

Para ejecutar una macro o procedimiento de evento cuando se produzcan estos eventos, establezca la propiedad OnMouseMove en el nombre de la macro o en [procedimiento de evento].To run a macro or event procedure when these events occur, set the OnMouseMove property to the name of the macro or to [Event Procedure].

El evento MouseMove se genera continuamente mientras el puntero del mouse se mueve sobre objetos.The MouseMove event is generated continually as the mouse pointer moves over objects. A menos que otro objeto genere un evento de mouse (ratón), un objeto reconoce un evento MouseMove siempre que se coloca el puntero del mouse dentro de sus bordes.Unless another object generates a mouse event, an object recognizes a MouseMove event whenever the mouse pointer is positioned within its borders.

Para provocar un evento MouseMove en un formulario que se produzca, mueva el puntero del mouse sobre un área en blanco, el selector de registros o la barra de desplazamiento en el formulario.To cause a MouseMove event for a form to occur, move the mouse pointer over a blank area, record selector, or scroll bar on the form. Para que se produzca un evento MouseMove en una sección de formulario, mueva el puntero del mouse sobre una zona en blanco de la sección del formulario.To cause a MouseMove event for a form section to occur, move the mouse pointer over a blank area of the form section.

Para responder a un evento provocado al mover el mouse, use un evento MouseMove.To respond to an event caused by moving the mouse, you use a MouseMove event.

Para ejecutar una macro o procedimiento de evento como respuesta a presionar y soltar los botones del mouse, use los eventos MouseDown y MouseUp.To run a macro or event procedure in response to pressing and releasing the mouse buttons, you use the MouseDown and MouseUp events.

EjemploExample

En el siguiente ejemplo se determina dónde está el mouse y si se presiona el botón primario del mouse o la tecla Mayús.The following example determines where the mouse is and whether the left mouse button and/or the Shift key is pressed. Las coordenadas X e Y correspondientes a la posición del puntero del mouse se muestran en un control de etiqueta al mover el mouse.The x and y coordinates of the mouse pointer position are displayed in a label control as you move the mouse.

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

Soporte técnico y comentariosSupport and feedback

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación?Have questions or feedback about Office VBA or this documentation? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.