![]() |
|
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
|
|
|
|
|
|
|
| Windows-Version |
| 98/SE |
 |
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
|
Download (12,6
kB)
|
Downloads bisher: [ 293 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 