Menu estilo css en visual foxpro

Agregar efectos a sus formularios

En este artículo, vamos a explicar cómo lograr esos efectos de Menu Estilo Css en Visual Foxpro utilizados en las páginas html en donde lo botones van apareciendo gradualmente en sus páginas principales. Es por ello que decidimos realizar este efecto pero con Visual Foxpro y de ver lo maravilloso que es este Lenguaje. 

Por lo general los programadores solemos realizar un sistema que cumpla con las especificaciones del cliente pero nos olvidamos un poco del diseño. Hoy en día la presencia de un sistema juega un papel muy importante a la hora de mostrar nuestro programa a futuros clientes. Se pueden desarrollar sistemas que cumplan estas características y sin tener que sobre-cargar el programa en sí.  

Como crear estos efectos en Visual Foxpro ?

Describiremos una forma sencilla de poder realizar estos pequeños trucos en tus formularios.

Utilizaremos imágenes para desarrollar el efecto deseado, para poder lograr de que la imagen vaya apareciendo de manera progresiva en el formulario y de esa forma poder jugar con la imagen.

En las páginas html los programadores trabajan mucho con banner para lograr estos tipos de efectos en los formularios, pero hoy veremos la forma de poder realizar este artificio de una manera distinta pero hecha en visual foxpro. Además veremos la manera de como desplazar un objeto de una forma elegante en la página principal de nuestro formulario.

Una vez que coloquemos el mouse sobre cualquiera de los textos en la pantalla principal el sistema desplegara la imagen de forma progresiva en la pantalla.

Para lograr estos resultados, te recomendamos elegir una serie de imágenes que estén relacionadas entre si. Deberemos crear un vector en donde guardaremos las respectivas imágenes con la cual deseamos trabajar para luego poder visualizarlas en el formulario.

PUBLIC sw,vect,pos,opciones

DECLARE vect[9]

DECLARE opciones[12]

sw=0

pos=0

thisform.image3.Visible =.f.

vect[1]="cua1.png"

vect[2]="cua2.png"

vect[3]="cua3.png"

vect[4]="cua4.png"

vect[5]="cua5.png"

vect[6]="cua6.png"

vect[7]="cua7.png"

vect[8]="cua8.png"

vect[9]="cua9.png"

opciones[1]="01.Ventas"

opciones[2]="02.Rep.Ventas"

opciones[3]="03.Libro.Ventas"

thisform.apago

De igual forma estaremos usando el control timer que será quién nos proporcionará la espera para lograr el efecto deseado.Este control se activará una vez que la persona se posicione sobre la etiqueta seleccionada.

If sw=1

   FOR i=1 TO 9

     thisform.image3.Picture =vect[i]

     IF i=5

        sw=0

     ELSE

        INKEY(0.065)   

     endif   

   endfor     

Endif

Aprenderemos a mover un objeto sin la necesidad de tener que utilizar el comando move, cuando nos posicionemos sobre una de las etiquetas el botón de fondo se moverá a la etiqueta en la cual posees el mouse .

LPARAMETERS nButton, nShift, nXCoord, nYCoord

pos=2

sw=1

thisform.apago 

thisform.image3.Visible =.t.

thisform.image1.Left =thisform.label2.Left-10

thisform.image3.Left =thisform.label2.Left-5

Si le quieres dar un verdadero sentido de profundidad a tus programas, aquí te dejo la forma de poder lograrlo.

La realización de este programa es para ayudar y/o orientar al programador a como debemos elaborar estas aplicaciones en nuestros programas.

Vea debajo las instrucciones para la descarga, únicamente debes completar la acción que te aparecerá en pantalla y el programa comenzará a descargarse automáticamente.