Programación General > Visual Basic 6.0 e inferiores
Crear Animacion Con Vb
Fernando_P:
Hola Yovana
Gracias por tu ayuda.
enviamelo al correo fdopizarro@gmail.com
Una consulta...las fotos no pueden ser jpg?
otra cosa las fotos que deseo animar son de 650x650, es posible?
Gracias
tiquinho:
Hola Fernando:
Si utilizas la forma que te comenta Yovana, puedes pegar cualquier tipo de imagen (jpg, gif, bmp, png...). Yo utilizo el Macromedia Fireworks, en vez del Animation Pro, pero cualquiera de los dos son válidos.
Se trata de crear un único archivo animado (.gif) desde un programa externo, y con el ocx que ella te indica, pegarlo en tu aplicación. Lo bueno de este ocx es que no necesitas copiar después todas las imágenes,ni siquiera el gif que creaste, pq ya te lo guarda él en el programa.
En ambos programas puedes utilizar la resolución que quieras, aunque si creas una animación de 650x650 de va a quedar una animación un poco pesada(en tamaño de archivo vamos).
Espero haberte despejado alguna duda.
Blag:
Si tu animación no es muy compleja....entonces puedes hacer algo muy sencillo.......Creas una matriz, arreglo, array o como quieras llamarla :lol: y asignas cada imagen a cada posición......Luego de esto, simplemente utilizas un for para avanzar por cada posición y asignarla a un control de imagen....
Ahorita estoy en el trabajo y no tengo el VB 6, pero si necesitas saber como escribir el código, pasame la voz :smartass: No es la mejor manera de hacerlo, pero funciona :comp:
Saludos,
Blag :devil:
Fernando_P:
Hola Blag,
Gracias y claro puede que lo simple de tu solucion sea la mejor...puedes ayudarme y decirme como asigno las imagenes en una arreglo y despues las paso a un conmtrol de imagen?
Gracia por tu ayuda.
Saludos!
Fernando
Blag:
Hola Fernando_P, disculpa la demora.....es que el trabajo está muy pesado estos últimos días :angry:
Primero debes crear una matriz de controles, y en cada una asignar una imagen,
Por ejemplo Image1. Y luego simplemente ir recorriendo cada posición del arreglo y asignarlo a otro control image B)
--- Código: Text --- Dim anim As Integer Private Sub tmrAnim1_Timer()anim = anim + 1 If anim > 7 Then anim = 1 imgAnim.Picture = Image1(anim - 1).PictureEnd Sub
Saludos,
Blag :devil:
Navegación
[#] Página Siguiente
[*] Página Anterior
Ir a la versión completa