Программа координат мышки

Эта программа будет показывать координаты укзателя мышки в окне рисования (drawingarea) непрерывно, когда левая клавиша мышки нажата.

Вам нужна форма с окном рисования (drawingarea) и два текстовых окошка (textboxes) для того, чтобы программа работала.

Здесь показано, как может выглядеть программа:

prgmausxy1.png

Верхний левый угол области рисования имеет координаты (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