This program will show the coordinates of the mousepointer in a drawingarea continously, when the left mousebutton is pressed.
You need a form with a drawingarea and two textboxes to get the program going.
See how it looks like here:
The upper left corner of the drawing area has the coordinates (0,0). The right lower corner has the coordinates (drawingArea1.width, drawingarea1.height )
The Code
PUBLIC SUB DrawingArea1_MouseMove() Textbox1.text = Mouse.X Textbox2.text = Mouse.Y END
Older Version
PUBLIC SUB DrawingArea1_MouseMove(X AS Integer, Y AS Integer, Button AS Integer) Textbox1.text = X Textbox2.text = Y END
-- ReinerHoffmann - 01 Feb 2004