SetMouse
设置鼠标光标的位置和可见性
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
零（0）成功，非零表示失败。
SetMouse将设置鼠标指针的（x ，y ）坐标，并设置其可见性。使用x 和y 参数设置鼠标位置。如果可见性设置为1，鼠标将可见，如果visibility 设置为0，则鼠标将不可见。SetMouse适用于仅使用Screen （图形）语句启动的图形模式。
语法
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
可选 - 设置x坐标
y 可选 - 设置y坐标
visibility 可选 - 设置的可见性：1表示可见，0表示隐藏
clip 可选 - 设置剪辑：1表示鼠标被剪辑到图形窗口，0表示没有剪辑
返回值
零（0）成功，非零表示失败。
说明
SetMouse将设置鼠标指针的（x ，y ）坐标，并设置其可见性。使用x 和y 参数设置鼠标位置。如果可见性设置为1，鼠标将可见，如果visibility 设置为0，则鼠标将不可见。SetMouse适用于仅使用Screen （图形）语句启动的图形模式。
例子
Dim As Integer x, y, buttons
'创建屏幕640 * 480
ScreenRes 640, 480
Print "单击鼠标按钮将鼠标居中"
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 = ""
'创建屏幕640 * 480
ScreenRes 640, 480
Print "单击鼠标按钮将鼠标居中"
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引用。
与QB差别
- 新的FreeBASIC
参考