Tipp 031: Die gegenwärtige Position des Mauszeigers ermitteln

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