The Drag and Drop Program

If you want to drag and drop a widget on your form with your mouse, you can use this little program.

You need an image widget on your form to get the program going. When you hit the left mouse button, you can drag the image around on your form. The name of the image in this example is Image1 . Of course you can take any other widget, when you change the code for its name.

How does it look like ?

The Code

    PUBLIC SUB Form_MouseMove()
    Image1.X = Mouse.X
    Image1.Y = Mouse.Y
    END

Older Version

    PUBLIC SUB Form_MouseMove(X AS Integer, Y AS Integer, Button AS Integer)
    Image1.X = X
    Image1.Y = Y
    END

-- ReinerHoffmann - 06 Mar 2004