CommandButton.MouseMove-Ereignis (Access)

Das MouseMove-Ereignis tritt auf, wenn der Benutzer die Maus bewegt.

Syntax

Ausdruck. MouseMove (Schaltfläche, UMSCHALT, X, Y)

Ausdruck Eine Variable, die ein CommandButton-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Button Erforderlich Integer Die Taste, die gedrückt oder losgelassen wurde, als das Ereignis ausgelöst wurde. Wenn Sie das Argument Button testen müssen, können Sie eine der folgenden systeminternen Konstanten als Bitmasken verwenden:
  • acLeftButton Die Bitmaske für die linke Maustaste.

  • acRightButton Die Bitmaske für die rechte Maustaste.

  • acMiddleButton Die Bitmaske für die mittlere Maustaste.

Shift Erforderlich Integer Der Zustand der TASTEN UMSCHALT, STRG und ALT, wenn die durch das Argument Schaltfläche angegebene Schaltfläche gedrückt oder losgelassen wurde. Wenn Sie das Argument UMSCHALT testen müssen, können Sie eine der folgenden systeminternen Konstanten als Bitmasken verwenden:
  • acShiftMask Die Bitmaske für die UMSCHALTTASTE.

  • acCtrlMask Die Bitmaske für die STRG-TASTE.

  • acAltMask Die Bitmaske für die ALT-TASTE.

X Erforderlich Single Die x-Koordinate für die aktuelle Position des Mauszeigers in Twips.
Y Erforderlich Single Die y-Koordinate für die aktuelle Position des Mauszeigers in Twips.

HinwBemerkungeneise

Das MouseMove-Ereignis gilt nur für Formulare, Formularabschnitte und Steuerelemente in einem Formular und nicht für Steuerelemente in einem Bericht.

Dieses Ereignis hat keine Gültigkeit für ein einem anderen Steuerelement zugeordnetes Bezeichnungsfeld, wie z. B. einem Bezeichnungsfeld für ein Textfeld. Es gilt lediglich für "frei stehende" Bezeichnungsfelder. Das Drücken und Loslassen einer Maustaste in einem zugeordneten Bezeichnungsfeld hat dieselbe Wirkung wie das Drücken und Loslassen der Taste im zugeordneten Steuerelement. Es treten nur die für das Steuerelement üblichen Ereignisse, keine zusätzlichen Ereignisse für das zugeordnete Steuerelement ein.

Um ein Makro oder eine Ereignisprozedur auszuführen, wenn diese Ereignisse auftreten, legen Sie die OnMouseMove-Eigenschaft auf den Namen des Makros oder auf [Ereignisprozedur] fest.

Das MouseMove-Ereignis wird ständig wiederholt ausgelöst, während der Mauszeiger über Objekten bewegt wird. Sofern kein anderes Objekt ein Mausereignis generiert, erkennt ein Objekt ein MouseMove-Ereignis , wenn der Mauszeiger innerhalb seiner Rahmen positioniert wird.

Zum Auslösen des MouseMove-Ereignisses für ein Formular verschieben Sie den Mauszeiger auf einen leeren Bereich, einen Datensatzmarkierer oder eine Bildlaufleiste des Formulars. Zum Auslösen eines MouseMove-Ereignisses für einen Formularbereich verschieben Sie den Mauszeiger auf eine leere Stelle des Formularbereichs.

Um auf ein Ereignis zu reagieren, das durch bewegen der Maus verursacht wird, verwenden Sie ein MouseMove-Ereignis .

Zum Ausführen eines Makros oder einer Ereignisprozedur als Reaktion auf das Drücken und Loslassen der Maustasten verwenden Sie die Ereignisse MouseDown und MouseUp .

Beispiel

Im folgenden Beispiel wird bestimmt, wo sich die Maus befindet und ob die linke Maustaste und/oder die UMSCHALTTASTE gedrückt wird. Die x- und y-Koordinaten der Mauszeigerposition werden in einem Beschriftungssteuerelement angezeigt, während Sie die Maus bewegen.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.