Click

Move

This method lets you move an object. You can resize it at the same time.

Usage

oObject.Move( nLeft [, nTop [, nWidth [, nHeight ] ] ] )

The parameters are the new values for the specified properties. We can think of some fun things to do with movable controls. (Imagine a button that jumps away when the user clicks on it. Or don't just imagine it—see the example.)

Example

* This might be the Click for a command button. This.Move(This.Left + This.Width/4, ;           This.Top - 50, This.Width / 2, This.Height * 3 / 2) =inkey(.1)  && stop and let the user see This.Move(This.Left - This.Width / 2, ;           This.Top + 50, This.Width * 2, This.Height * 2 / 3)

The example points out that moving an object relative to its position, or sizing it relative to its size, is something of a pain. For an object that needed to do this a lot, we'd be inclined to create a custom method RelativeMove that would understand its parameters as relative to current position and size. Here's the code:

* RelativeMove - a custom method * Pass positive values to move right and down and to make object larger * Pass negative values to move left and up and to make object smaller LPARAMETERS nLeft, nTop, nWidth, nHeight LOCAL nNewLeft, nNewTop, nNewWidth, nNewHeight   nNewLeft   = IIF( VARTYPE('nLeft')="N", This.Left + nLeft, This.Left) nNewTop    = IIF( VARTYPE('nTop')="N", This.Top + nTop, This.Top) nNewWidth  = IIF( VARTYPE('nWidth')="N", This.Width + nWidth, This.Width) nNewHeight = IIF( VARTYPE('nHeight')="N", This.Height + nHeight, This.Height)   This.Move(nNewLeft, nNewTop, nNewWidth, nNewHeight)   ENDPROC

See Also

Moved, Resize

View Updates

Copyright © 2002 by Tamar E. Granor, Ted Roche, Doug Hennig, and Della Martin. All Rights Reserved.