Tipp 0149 Mausbereich eingrenzen
Autor/Einsender:
Datum:
  Michael Werner
27.11.2006
Entwicklungsumgebung:   VB.Net 2005
Framework:   2.0
VB-Zeiten, wo man umständlich mit mehreren API-Funktionen ClipCursor, GetClientRect und anderen hantieren musste, um den Maus-Cursor einzugrenzen, gehören in .NET-Zeiten der Vergangenheit an.
Die Cursor.Clip-Eigenschaft ruft die Begrenzungen ab, die das Auswahlrechteck für den Cursor darstellen, oder legt diese fest. Beim Festlegen der Begrenzung wird der Clip-Eigenschaft ein Rechteck übergeben. Das Rectangle enthält die Rechteckewerte in Bildschirmkoordinaten, das das Auswahlrechteck für den Cursor darstellt.
Ein Rechteck definiert sich durch eine Anfangsposition x und y (linke obere Ecke) und Integer-Werten aus Breite und Länge.
 
Windows.Forms.Cursor.Clip = New Rectangle(x, y, width, height)
 
Und schon ist der Bewegungsraum der Maus eingegrenzt (to clip = beschneiden).
 
Private Sub Button1_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button1.Click
  Windows.Forms.Cursor.Clip = New Rectangle( _
               Me.Panel1.Left + Me.Left + 5, _
               Me.Panel1.Top + Me.Top + 23, _
               Me.Panel1.Width, _
               Me.Panel1.Height)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles Button2.Click
  Windows.Forms.Cursor.Clip = New Rectangle( _
               Me.Left, _
               Me.Top, _
               Me.Width, _
               Me.Height)
End Sub

Private Sub No_Clip()
  Windows.Forms.Cursor.Clip = Nothing
End Sub
 
Weitere Links zum Thema
Mauszeiger folgen
Mauszeiger kreisen lassen

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (12,6 kB) Downloads bisher: [ 252 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

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

Seite empfehlen Bug-Report
Letzte Aktualisierung: Freitag, 20. Januar 2012