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:

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