The Mouse Coordinate Program

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:

prgmausxy1.png

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