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 函式，提供“滑鼠懸停”功能。