鼠标。在哪里部分 module

句法   鼠标。在哪里 (var. x, y, 按钮 : )

描述   鼠标。在哪里 过程用于获取有关鼠标状态的当前信息。参数 xy 设置为鼠标光标的当前位置。如果程序在使用Windows的系统上运行,则光标可能位于窗口之外。这意味着 xy 可以设置为0到0的范围之外的值 maxx. 和0到 最大.

The parameter 按钮 根据当前模式设置。在 ”单按钮模式“(鼠标被视为单键鼠标), 按钮 如果所有鼠标按钮为UP,则设置为0,并且如果任何鼠标按钮都关闭,则为1。在 ”多按钮模式“, 按钮 如果左按钮关闭,则为1,如果中间按钮关闭,则为10,如果右按钮关闭,则为100。因此,如果 按钮 具有101的值,那么这意味着左右鼠标按钮被抑制。

例子   在屏幕左上角显示鼠标状态的程序。

        var. x, y, 按钮 : 
        loop
            鼠标。在哪里 (x, y, 按钮)
            Text.Locate (1, 1)
            if 按钮 = 0 then
                put x : 4, "  ", y : 4, "  button up"
            else
                put x : 4, "  ", y : 4, "  button down"
            end if
        end loop
地位   Exported qualified.

这意味着您只能通过调用来调用该功能 鼠标。在哪里,不是通过致电 在哪里.

也可以看看   鼠标.Buttonmoved鼠.Buttonwait. 获取在队列中保存的鼠标事件。也可以看看 鼠标.Buttonchoose. to switch between "单按钮模式“ 和 ”多按钮模式“。