GETMOUSE

FreeBASIC-Referenz » Alphabetische Befehlsreferenz » G » GETMOUSE

Syntax: GETMOUSE x, y[, [Rad][, [Buttons][, [Clip]]]]
Typ: Funktion
Kategorie: Benutzereingabe

GETMOUSE liefert die Position der Maus und den Status der Buttons, des Mausrads und des Clipping-Status zurück.

Da beim Bewegen der Maus aus dem Grafikfenster heraus alle Werte auf -1 gesetzt werden und dies im Zusammenhang mit der Button- und Mausrad-Abfrage zu Fehlinterpretationen führen kann, sollte immer der Rückgabewert der Funktion geprüft werden.

Beispiel:

Dim As Integer x, y, buttons, Ergebnis

' Grafikfenster 320x200x8 setzen
Screenres 320, 200

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

Unterschiede zu QB: neu in FreeBASIC

Plattformbedingte Unterschiede:

Unterschiede unter den FB-Dialektformen:
In der Dialektform -lang qb steht GETMOUSE nicht zur Verfügung und kann nur über __GETMOUSE aufgerufen werden.

Unterschiede zu früheren Versionen von FreeBASIC:

Siehe auch:
SCREENRES, SETMOUSE, Benutzereingaben