Эта программа будет показывать координаты укзателя мышки в окне рисования (drawingarea) непрерывно, когда левая клавиша мышки нажата.
Вам нужна форма с окном рисования (drawingarea) и два текстовых окошка (textboxes) для того, чтобы программа работала.
Здесь показано, как может выглядеть программа:
Верхний левый угол области рисования имеет координаты (0,0). Правый нижний угол имеет координаты (drawingArea1.width, drawingarea1.height )
Код
PUBLIC SUB DrawingArea1_MouseMove()
Textbox1.text = Mouse.X
Textbox2.text = Mouse.Y
END
Старая версия
PUBLIC SUB DrawingArea1_MouseMove(X AS Integer, Y AS Integer, Button AS Integer)
Textbox1.text = X
Textbox2.text = Y
END
-- ReinerHoffmann - 01 Feb 2004