Tipp 0018 Position des Maus-Cursors ermitteln
Autor/Einsender:
Datum:
  Detlev Schubert
27.12.2000
Entwicklungsumgebung:   VB 5
Für bestimmte Anwendungen ist es notwendig, die Position des Mauscursors auch außerhalb eines Steuerelements zu ermitteln. Dazu greifen wir auf die API-Funktion GetCursorPos zurück, denn mit dem MouseMove-Ereignis wird nur die relative Position des Mauscursors zurückgeliefert, solange sich die Maus über dem betreffenden Steuerelement (innerhalb des Clientbereichs) befindet.
Mit diesem Beispiel lässt sich die Mausposition auf dem gesamten Windows-Desktop ermitteln.
Code im Codebereich des Moduls
 
Option Explicit

Public Declare Function GetCursorPos Lib "user32" (lpPoint As _
       POINTAPI) As Long

Public Type POINTAPI
  x As Long
  y As Long
End Type
 
Code im Codebereich der Form
 
Option Explicit

Dim MousePosition As POINTAPI

Private Sub Form_Load()
  Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
  GetCursorPos MousePosition
  Label1.Caption = MousePosition.x
  Label2.Caption = MousePosition.y
End Sub
 
Weitere Links zum Thema
Mausbereich eingrenzen
Mausklick simulieren

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2 kB) Downloads bisher: [ 1784 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 28. August 2011