Botones Efectos movimiento

Botones Efectos

Observen como en esta oportunidad se logró realizar un efecto distinto al mostrado anteriormente en Botones con Efecto en Visual Foxpro, hoy podremos ver como los Command logran obtener un tamaño y una posición muy distinta a su posición original. De igual forma estaremos mostrando como desplazar una imagen a un lado de los diferentes command que se muestran en el formulario.

   En los eventos MouseEnter de cada uno de los distintos Command colocaremos las siguientes instrucciones:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

thisform.command1.Left =thisform.shape1.Left 

thisform.command1.Height =35

thisform.image6.Top =thisform.command1.Top 

Esto nos permite de que cada vez que pasemos el mouse por el Command, tomará una posición distinta y el Botón obtendrá otro tamaño al igual que la imagen de la mano se posicionará a un lado del botón seleccionado. 

De igual forma deberemos colocar en el evento MouseLeave la siguiente instrucción:

LPARAMETERS nButton, nShift, nXCoord, nYCoord

thisform.command1.Left =thisform.shape1.Left +13

thisform.command1.Height =27

thisform.image6.Top =thisform.command1.Top 

En los eventos LostFocus  y GotFocus se deberán colocar las mismas instrucciones que se colocaron en MouseEnter y MouseLeave respectivamente.

Esto se hace con la finalidad de que si la persona no desea utilizar el Mouse, haga el mismo efecto si decide utilizar el teclado.

Descarga el programa de manera fácil en el link de descarga.