Como hago para ejecutar un gif animado en un formulario

[integral]

Que tal amigos del Foro

Muy Buenas Noches

Quisiera saber si alguien me puede ayudar de como hago para ejecutar
un gif animado contenido en el _SCREEN y poder sobreponerlo en el formulario principal luego de hacer una búsqueda de un registro.

Aquí el código utilizado que funciona en el _Screen de VFP, pero cuando es llamado desde el formulario No aparece el archivo GIF

WAIT WINDOW "[ Realizando la Busqueda del Registro... ]" NOWAIT 
_Screen.AddObject("imagen_gif","image")
_Screen.imagen_gif.Picture = "C:\MIGRACONSU\ERP_CONSUMO\BMPS\GIF\BUSQUEDA.GIF"
_Screen.imagen_gif.Visible = .T.
_Screen.imagen_gif.Top = 395
_Screen.imagen_gif.left = 1335
=INKEY(2.5)
_Screen.imagen_gif.visible = .F.
clear all

WAIT CLEAR

Agradezco vuestra ayuda.

Saludos,

Integral

[Zarlu]

Buenos días Integral!

Y si la agregas al form en lugar del _Screen?

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Colega Zarlu

Muy Buenos Días

Te comento, hace unas semanas me nació la idea de poner un archivo GIF cuando se hace una búsqueda de un registro y darle un efecto similar al efecto que hace algunos años aparecía en MS Word el gif animado CLICKCITO...

El formulario principal de tipo ShowWindow=1 y de tipo modal, en el botón de Búsqueda he colocado el código publicado...

He notado que haciendo las pruebas en una de ellas apareció el Archivo Gif de la Imagen publicada detrás del formulario principal.

Que propiedades debo cambiar en el formulario principal para hacer que aparezca el archivo GIF adelante... 

 

También anoche lo estuve poniendo el archivo GIF en un formulario, pero el efecto mostrado no es el mismo .

Se me ocurre convertir el formulario en forma redonda y/o ovalada. Y además sea transparente para imitar el efecto del archivo GIF en el _Screen.

Agradezco tus comentarios y sugerencias.

Atte.,

Integral

[Zarlu]

Qué tal Integral!

El gif debe estar en el formulario donde lo vas a mostrar.

Revisa el Top y Left de tu código, es probable que esté quedando fuera de visión del formulario.

Toma en cuenta también la propiedad Zorder

Igual y lo puedes agregar en diseño al formulario y manejar la propiedad visible conforme lo requieras

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Colega Zarlu

Muy Buenas Tardes

Como podras observar en la imagen. El archivo GIF se ejecuta de manera lenta que se nota el desplazamiento de los movimientos del archivo GIF

Igual sucede cuando lo hago en un formulario independiente...

Pero en el _SCREEN si funciona correctamente...

Que me aconsejas para 

Atte.,

Integral

[integral]

Que tal Amigos

Buscando información sobre los archivos GIF animados.

Encontré el siguiente comentario del maestro Víctor Espina

Atte.,

Integral

[Zarlu]

Buenas tardes Integral!

El comentario del maestro Víctor lo dice todo.

En algún momento también pensé en usarlos, pero decliné, no recuerdo porque, quizá por esa razón.

Lo que he hecho en consultas es incluir una función que al "evaluarse" actualiza un mensaje de progreso.

Algo así:

Select * From......Where ...... AND progreso()....

Entonces en progreso() código que actualiza/oculta/muestra alguna etiqueta o imagen

[integral]

Que tal Colega Zarlu

Muy Buenas Noches

Buscando informacion encontre el siguiente comentario del Colega Daniel Sanchez

Si no me equivoco el vfp trabaja en un solo hilo o tarea y por tanto todo lo que se cargue ahí va corriendo por ese hilo, si un proceso toma su tiempo en ejecutarse todo los demás cosas del vfp se detienen, dentro de esto esta el ejecutar la animación de tu gif, uno podrías lanzar tu proceso de backup ejecutándolo en un módulo exe aparte, lo que no bloquearía tu exe actual, dos ejecutarlo o lanzarlo dentro del mismo exe con una clase que maneja multi hilos (que me parece que ya se toco el tema hace un tiempo, multihilos en vfp), con el cual no bloquea para nada tu exe actual ya que se ejecuta en otro hilo, o tercero si usas un bucle dowhile, for, scan u otro para ir enviando tus archivos podrías ir poniendo doevents dentro de tu bucle pudiendo con esto hacer que el sistema ejecute o vea los eventos en lista y los tome, claro esta si tu proceso esta dentro de uno de estos bucles.

Como una posible solucion otro colega planteaba...

Imagino que deseas hacer es un batch y mientras corre el proceso le muestras un gif animado al usuario para que no se aburra

Hacer lo siguiente:

1) crea una clase Form llamada FormImagen en donde colocas la imagen Gif

2) En un Prg (ProgBatch) coloca lo siguiente

Procedure ProgBatch

    oShowForm=CREATEOBJECT("FormImagen")

oShowForm.SHOW

INKEY(2)

        

       Codigo del Proceso que deseas correr   && Aqui que codigo se pondria para ejecutar el archivo GIF, luego de indicar la ruta del archivo  

        oShowForm.release

ENDPROC

3) Ejecuta el prg (DO ProgBatch)

Agradezco tus comentarios y Sugerencias

Atte,

Integral