Gambas/鼠标

鼠标坐标程序

此程序将在按下鼠标左键时，在两个文本框中持续显示鼠标指针的坐标。您需要一个带有绘图区和两个文本框的窗体才能运行该程序。以下是它的外观：http://www.madeasy.de/7/prgmausxy1.htm

绘图区的左上角坐标为 (0,0)。右下角坐标为 (drawingArea1.width, drawingarea1.height )

代码

PUBLIC SUB DrawingArea1_MouseMove()
Textbox1.text = Mouse.X 
Textbox2.text = Mouse.Y 
END

如果您不使用绘图区，可以简化程序。代码应如下所示。

PUBLIC SUB Form1_MouseMove()
Textbox1.text = Mouse.X 
Textbox2.text = Mouse.Y 
END

试试看 !

我们甚至可以使用 print 命令来代替文本框。然后坐标将显示在终端窗口中。

代码应如下所示。

PUBLIC SUB Form1_MouseMove()
PRINT mouse.X 
PRINT Mouse.Y 
END

试试看 !

请注意，DrawingArea 是 Gambas 中唯一跟踪鼠标移动的控件（在当前版本 2.n 中）。其他控件仅在鼠标按下事件中提供鼠标坐标。此外，它们还具有 ENTER 和 LEAVE 函数，提供“鼠标悬停”功能。