Declare Function SetMouse ( ByVal x As Integer = -1, ByVal y As Integer = -1, ByVal visibility As Integer = -1, ByVal clip As Integer = -1 ) As Integer

result = SetMouse([ x ] [, [ y ] [, [ visibility ] [, [ clip ]]]])

(Для каждого параметра, -1 это специальное значение, указывающие "отсутствие изменений.")
x
y
visibility
clip

Ноль (0) в случае успешного завершения, ненулевое в случае неудачи.

SetMouse будет устанавливать (x, y) коодинаты курсора мыши, а также устанавливает его видимость. Положение мыши устанавливается с помощью х и у параметров. Мышь будет видна, если visibility установлена в 1, и не видна , если visibility установлена в 0. SetMouse предназначен для графических режимов, инициированных с помощью заявления Screen (графика).

Dim As Integer x, y, buttons

' создаем экран 640*480
ScreenRes 640, 480
Print "Click the mouse button to center the mouse"

Do
    ' получаем координаты мыши x, y и состояние кнопок (ожидание, пока мышь не на экране)
    Do: Sleep 1: Loop While GetMouse( x, y , , buttons) <> 0

    If buttons And 1 Then
        ' при нажатии левой кнопки мыши, делаем мышь по центру
        SetMouse 320, 240
    End If

    ' выполнять цикл, пока не будет нажата кнопка или не закроется окно
Loop While Inkey = ""

• Не доступно в диалекте -lang qb , но есть псевдоним __Setmouse.
  
  

• Новое в FreeBASIC
  
  

• GetMouse
  
• Screen
  
• MultiKey
  
• GetKey