Efectos Slash
Hoy les mostraremos como hacer este pequeño truco para darles ciertos efectos a nuestros comandos que nos ayuden a mejora la presentación de nuestros programas.
Veremos como al presionar la opción de salir los comandos se desplazarán hacia la derecha, dando la sensación del efecto de barrido o slash.
Al mismo tiempo notaremos como los títulos de los diferentes comando aparecen subrayadas, esto se debe a la utilización de \< , que nos permite subrayar el texto en cuestión.
Otra particularidad que el programa tiene , es que nos permite mostrar la imagen del respectivo botón .El evento MouseEnter y el evento GotFocus son los encargados de cargar la imagen del respectivo Botón o comando y de darle el efecto requerido. Mientras que los eventos LostFocus y MouseLeave son los responsables de desactivar los efectos correspondientes a cada botón.
El comando timer es quién ejecuta todo el efecto que se realiza en este programa.
El timer permite controlar el tiempo de duración en que cada comando se va a desplazar hacia la derecha de su pantalla. Observa como es la sintaxis de este ejemplo.
En el evento timer del control TIMER1 colocamos lo siguiente :
If sw=1
op=op+1
Do Case
Case op=1
Set Bell To "jp00504.wav"
?? Chr(7)
For a=Thisform.command1.Left To Thisform.command1.Left+130
Thisform.command1.Left=a
Next
Case op=2
For b=Thisform.command3.Left To Thisform.command3.Left+130
Thisform.command3.Left=b
Next
Case op=3
For c=Thisform.command4.Left To Thisform.command4.Left+130
Thisform.command4.Left=c
Next
Case op=4
For d=Thisform.command5.Left To Thisform.command5.Left+130
Thisform.command5.Left=d
Next
Case op=5
For e=Thisform.command6.Left To Thisform.command6.Left+130
Thisform.command6.Left=e
Next
Case op=6
For F=Thisform.command2.Left To Thisform.command2.Left+130
Thisform.command2.Left=F
Next
sw=0
Thisform.Release()
Endcase
Thisform.Refresh
Endif
Thisform.Refresh
En el evento init del formulario colocaremos las siguientes variales :
PUBLIC sw,op
op=0
sw=0
Coloca en la parte principal de tu formulario en control Timer.
Te dejo el link de descarga en la parte inferior del Blog.
