ClipCursor - kurz und bündig Dieses Beispiel demonstriert, wie sich der Bewegungsbereich des Mauszeigers mit nur wenigen Zeilen Code einschränken lässt.
Autor:   Adrian Mönnich	Bewertung:     [ Jetzt bewerten ]	Views:  17.410
www.planetcoding.net	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Viele Wege führen nach Rom So auch die Möglichkeiten, den Bewegungsbereich des Mauszeigers auf ein bestimmtes Rechteck oder Objekt einzuschränken. Hierzu haben wir Ihnen vor längerer Zeit schon einmal einen Tipp vorgestellt. Das nachfolgende Beispiel zeigt jedoch, wie sich das ganze mit weniger Codezeilen realisieren lässt.

' benötigte API-Deklarationen
Private Declare Function GetDesktopWindow Lib "user32" () As Long
 
Private Declare Function GetWindowRect Lib "user32" ( _
  ByVal hWnd As Long, _
  lprect As RECT) As Long
 
Private Declare Function ClipCursor Lib "user32" ( _
  lprect As Any) As Long
 
Private Type RECT
  Left As Long
  Top As Long
  Right As Long
  Bottom As Long
End Type

' Schaltet den ClipCursor ein (@PARAM: objektname.hWnd)
Public Function ClipCursorOn(hWnd As Long)
  Dim ControlRect As RECT
  GetWindowRect hWnd, ControlRect
  ClipCursor ControlRect
End Function

' Schaltet den ClipCursor wieder aus
Public Function ClipCursorOff()
  Dim ScreenRect As RECT
  Dim ScreenHandle As Long
 
  ScreenHandle = GetDesktopWindow
  GetWindowRect ScreenHandle, ScreenRect
  ClipCursor ScreenRect
End Function