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:	Views:  16.908
www.planetcoding.net	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.