![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 1862 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 