Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!Referenz - GETMOUSE
Syntax: GETMOUSE x, y[, [Rad][, [Buttons][, [Clip]]]]
Typ: Funktion
Kategorie: Eingabe
Rückgabewert: 0 bei Erfolg oder 1 bei Fehler
GETMOUSE liefert die Position der Maus und den Status der Buttons und des Mausrades zurück.
- Die Position wird in den Variablen 'x' und 'y' zurückgegeben; beide müssen vom Typ
INTEGER sein. Wenn sich die Maus außerhalb des Fensters befindet, liefern 'x' und 'y' -1. Die Koordinaten richten sich nach dem Anzeigemodus: In Grafikmodi geben sie die Position in Pixeln an; die linke obere Ecke entspricht dabei den Koordinaten 0, 0. In Textmodi wird die Position des Cursors in Zeilen und Spalten ausgegeben; die linke obere Ecke entspricht dabei den Koordinaten 1, 1. Siehe auch: SCREEN. Änderungen am Koordinatensystem durch VIEW und WINDOW haben keinen Einfluss auf die von GETMOUSE zurückgelieferten Koordinaten. - 'Rad' gibt den Status des Mausrads zurück: Wenn Sie das Mausrad von sich wegdrehen, wird diese Variable jeweils um den Wert 1 erhöht. Drehen Sie es auf sich zu, wird 'Rad' um 1 vermindert. 'Rad' startet bei jeder Programmausführung mit 0. Wenn sich die Maus außerhalb des Fensters befindet, liefert 'Rad' -1. Möglicherweise unterstützt FreeBASIC nicht immer Mausräder, in so einem Fall wird immer 0 zurückgegeben.
- 'Buttons' gibt an, welche Maustasten gerade gedrückt sind:
Bit 0 wird gesetzt, wenn die LINKE Maustaste gedrückt wird.
Bit 1 wird gesetzt, wenn die RECHTE Maustaste gedrückt wird.
Bit 2 wird gesetzt, wenn die MITTLERE Maustaste gedrückt wird.
Bit 3 wird gesetzt, wenn die 1. Zusatztaste gedrückt wird.
Bit 4 wird gesetzt, wenn die 2. Zusatztaste gedrückt wird. Siehe dazuBIT. - 'Clip' speichert den Maus-Clipping-Status. Bei 1 ist die Maus auf das Grafik-Fenster beschränkt; bei 0 ist die Maus nicht beschränkt.
- Wenn keine Maus angeschlossen ist, werden alle übergeben Variablen auf -1 gesetzt.
(GETMOUSE funktioniert seit FreeBASIC v0.14 nicht nur in Grafikmodi, sondern auch in Textmodi.)
Beispiel:
'Grafikmodus setzen und Schleife beginnen
Dim As Integer x, y, buttons, Ergebnis
' Videomodus 320x200x8 setzen
Screen 13
Do
' Lade Mauskoordinaten ohne Mausrad.
Ergebnis = GetMouse (x, y, , buttons)
Locate 1, 1
If Ergebnis <> 0 Then
Print "Maus nicht vorhanden/nicht im Fenster"
Else
Print Using "Maus-Position: ###:### Buttons: "; x; y;
If buttons And 1 Then Print "L";
If buttons And 2 Then Print "R";
If buttons And 4 Then Print "M";
If buttons And 8 Then Print "X1";
If buttons And 16 Then Print "X2";
Print Space(5)
End If
Loop While Inkey = ""
EndÄnderungen zu QB: Neu in FreeBASIC.
Siehe auch:SCREEN (Anweisung), GETKEY, GETJOYSTICK, SETMOUSE
| Zusätzliche Informationen und Funktionen | ||||
|---|---|---|---|---|
|
||||
Versionen