Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Referenz - SETMOUSE
Syntax: SETMOUSE [x][,[y][, [cursor][, clip]]]
Typ: Anweisung
Kategorie: Gfx
SETMOUSE setzt die Koordinaten des Mauscursors und bestimmt, ob die Maus sichtbar oder unsichtbar ist.
- 'x' und 'y' sind die neuen Koordinaten des Mauscursors.
- 'cursor' ist 1, wenn die Maus angezeigt werden soll, oder 0, wenn sie unsichtbar sein soll.
- 'clip' ist 1, wenn die Mausbewegung auf das Fenster begrenzt ist, 0 wenn der Mauscursor das Fenster verlassen kann (neu ab FBVersion 0.18.0).
- Wird einer der Parameter ausgelassen, behält FreeBASIC den alten Status bei.
Beispiel:
Dim As Integer x, y, buttons, clip
'erstellt eine Fenster 800x600, 32-Bit Farbe, 1 Seite
Screen 19, 32, 1
Do
' Mausposition ermitteln und ausgeben.
GetMouse x, y , , buttons, clip
Locate 1, 1
PRINT x, y, Bin(buttons, 3), clip
If buttons = 1 Then 'linke Maustaste
SetMouse 400, 300, 1, 0 'Mauspfeil sichtbar und zentrieren
End If
If buttons = 2 Then 'rechte Maustaste
SetMouse 400, 300,1,1 'Mauspfeil auf das Fenster begrenzt
End If
If buttons = 4 Then 'mittlere Maustaste
SetMouse 400, 300, 0, 0 'Mauspfeil unsichtbar
End If
Loop Until MultiKey(1)Siehe auch:
GETMOUSE
Unterschiede zu QB: Neu in FreeBASIC.
| Zusätzliche Informationen und Funktionen | ||||
|---|---|---|---|---|
|
||||
Versionen