¬ Home » Tipps & Tricks » Tipp 031 Feedback | Druckansicht

Tipp 031: Die gegenwärtige Position des Mauszeigers ermitteln

Autor: Alexander Kopatz VB-Version: Visual Basic 6.0 Download: Beispielprojekt Tipp-031

Beschreibung

Wie Sie die aktuelle Position des Mauszeigers ermitteln können zeigt Ihnen dieses Beispiel. Im Rahmen des Projekts werden die Positions-Koordinaten (X-/Y-Achse) des Mauszeigers in Pixeln zurückgegeben. Der Aufwand ist dabei sehr überschaubar, benötigt wird lediglich die API-Funktion "GetCursorPos", diese liefert auf Abfrage die gewünschten Koordinaten zurück. Um die Position ständig abzufragen wird in diesem Beispiel ein Timer-Steuerelement verwendet.

Quellcode

frmMausPosition

Form                     frmMausPosition
Label                    lblX
Label                    lblY
TextBox                  txtX
TextBox                  txtY

' VISUAL BASIC WORLD
' ===========================================
' Das große Portal zum Thema Visual Basic.
'
' Wenn Ihnen dieser Source Code gefallen hat,
' dann empfehlen Sie Visual Basic World bitte
' weiter und/oder setzen Sie einen Link auf:
'
' http://www.visualbasicworld.de/
'
' Vernetzen Sie sich mit uns:
'
' http://twitter.com/visualbasicwrld


Option Explicit
 
Private Declare Function GetCursorPos Lib "user32" _
   (lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  X As Long
  Y As Long
End Type
 
Private Position As POINTAPI

Private Sub Timer_Timer()
 
   GetCursorPos Position
 
      txtX.Text = Position.X
      txtY.Text = Position.Y
         'Die API-Funktion "GetCursorPos" ermittelt
         'die Position der Maus, welche dann nur
         'noch ausgelesen werden muss.
 
End Sub