| Pregunta: | 1245 - TRABAJAR CON GIF ANIMADOS EN VFP 6.0 |
| Autor: | Manuel Vargas |
| - Hola Compañeros. - Necesito la ayuda de ustedes para poder rabajar con archivos GIF Animados como los que se utilizan en los WEB, para FORM en Visual Foxpro 6.0. los cursones animados no tengo problema pero con el anterior no da movimeinto sino que se queda fijo.. - Gracias a todos.. | |
| Respuesta: | Jose Jaimes |
| Hola, Espero que ya hayas solucionado el problema si no yo tengo un control OCX que es muy buen y mejor que marchoso ya que no pide licencia se llama ANIGIF.OCX escribeme y te lo envio en un FORM con programacion OK. Suerte | |
| Respuesta: | FoxCarlos FOX |
| Efectivamente si existe una forma mas facil y es con el control ActiveX Marchoso yo lo tengo en mi pagina web asi como tambien un formulario de jemplo para que vean como funciona. www.foxcarlos.8k.com | |
| Respuesta: | jorge m |
| YO trabajo con los gifs animados en visual fox version 3 con un control llamado marchoso.ocx, no se si funcione en visual fxo version 6 pero no pierdes nada con probar. lo puedes bajar de la siguiente direccion: http://geocities.com/freddymora_ec ESPERO QUE ME INFORMES SI FUNCIONO O NO !! | |
| Respuesta: | Luis Martínez |
| VFP 6.0 no soporta los archivos gif animados como tal. Pero te voy a dar una idea para que realices tu propia animación en un form. Partiendo del punto que los gif animados son varias imágenes que son mostradas en un tiempo determinado, has lo siguiente: 1-Guardar cada una de las imágenes del gif en un archivo GIF o BMP, como lo prefieras, por ejemplo: gifani1.gif, gifani2.gif, gifani3.gif. 2-En tu form insertas los controles image y timer. Asigna a la propiedad Interval del control timer la cantidad de milisegundos que quieres que pasen antes de mostrar cada imagen. Por ejemplo: Timer1.interval = 300. 3- En el evento Load del Form declara una variable pública llamada n e iníciala con 1, ejemplo: PUBLIC n n = 1 4- En el evento timer del control timer escribes el siguiente código: ThisForm.Image1.Picture ="gifani"+STR(n,1,0)+".gif" n = n + 1 IF n > 4 n = 1 ENDIF Observa que cada vez que se ejecuta el evento timer se muestra una imagen diferente en el control image con lo que obtienes una animación. | |