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: Benutzereingabe
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, oder 0, wenn der Mauscursor das Fenster verlassen kann.
- 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
Screenres 800, 600, 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)
Unterschiede zu QB: neu in FreeBASIC
Unterschiede zu früheren Versionen von FreeBASIC:
- Maus-Clipping wird seit FreeBASIC v0.18 unterstützt.
- Seit FreeBASIC 0.14 wird SETMOUSE im Konsolenfenster unterstützt.
Unterschiede unter den FB-Dialektformen:
In der Dialektform 
-lang qb steht SETMOUSE nicht zur Verfügung und kann nur über __SETMOUSE aufgerufen werden.
Siehe auch:SCREENRES, GETMOUSE, Benutzereingaben
| Zusätzliche Informationen und Funktionen | ||||
|---|---|---|---|---|
|
||||
Versionen