Muchas veces queremos darle un mejor efectos al programa al momento de insertar o modificar
un registro para saber de que el registro fue actualizado sin necesidad de tener que recurrir
a un mensaje de texto el cual nos indique de que el registro fué grabado.
En esta oportunidad le daremos un mejor efecto al momento de registrar un producto.Utilizaremos
un vector en donde cargaremos todas las imagenes para lograr tal efecto.
Te presentaré 3 programas con diferentes imagenes y diferentes efectos el cual te enseñaran como poder
lograr el efecto deseado para tus programas.
Ejemplo 1: Grabando.sct
Paso 1: En el Evento Init coloca lo siguiente:
PUBLIC vector,i
thisform.AutoCenter =.t.
i=1
DIMENSION vector[8]
vector[1]="im1.png"
vector[2]="im2.png"
vector[3]="im3.png"
vector[4]="im4.png"
vector[5]="im5.png"
vector[6]="im6.png"
vector[7]="im7.png"
vector[8]="im8.png"
Paso 2: Agrega el control Timer a tu formulario.
Paso 3: Dale Click al control timer y en el evento Click coloca los siguientes pasos:
thisform.image1.Picture =vector[i]
i=i+1
IF i>=8
i=1
thisform.release
endif
Paso 4:Agrega al formulario el control image.En las propiedades de image modifica los siguientes valores:
thisform.image1.Backstyle=0 Transparente
thisform.image1.Strech=2
Ejemplo 2: Grabando2.sct
Básicamente es el mismo procedimiento al interior, la única diferencia es la dimensión del vector y las imagenes.
Paso 1:Coloca en el Evento Init lo siguiente :
PUBLIC vector,i
thisform.AutoCenter =.t.
i=1
DIMENSION vector[5]
vector[1]="lap1.png"
vector[2]="lap2.png"
vector[3]="lap3.png"
vector[4]="lap4.png"
vector[5]="lap5.png"
Paso 2: Agrega el control Timer a tu formulario.
Paso 3: Dale Click al control timer y en el evento Click coloca los siguientes pasos:
thisform.image1.Picture =vector[i]
i=i+1
IF i>=5
i=1
thisform.release
endif
Este paso es el que nos permite darle ese efecto que tanto deseamos a nuestro formulario.
El thisform.image1.Picture =vector[i] mostrará en pantalla la primera imagen la cual aparece en el vector antes creado.
La variable i se irá incrementando en 1 para mostrar la siguiente imagen hasta llegar al final del vector y haber llegado
al intervalo deseado.
Ejemplo 3: Mover.sct
En el Evento Init
PUBLIC vector,i
i=1
En el Control Timer y el evento Click coloca:
i=i+1
IF i=1
thisform.image3.Left =24
thisform.image3.Top =168
endif
IF i=2
thisform.image3.Left =120
thisform.image3.Top =120
endif
IF i=3
thisform.image3.Left =228
thisform.image3.Top =72
endif
IF i=4
thisform.image3.Left =336
thisform.image3.Top =84
endif
IF i=5
thisform.image3.Left =420
thisform.image3.Top =108
endif
IF i>=8
i=1
thisform.image3.Left =24
thisform.image3.Top =168
endif
Utiliza Triple A logo para crear las imagenes o el editor de imagen de tu preferencia y graba las imagenes en diferentes posiciones
y de esta forma lograras el efecto deseado.
Link de Descarga :Download
0 comentarios:
Publicar un comentario