Poner Un Gif Animado En Un Boton O Label?

[oteron]

Hola me gustaria saber si se puede poner en un boton o en un label un gif animado,si no es posible si hay algun tipo de boton especial o algo que yo pueda poner un gif animado?. Yo quiero decir ponerlo y que tenga movimiento claro.

Muchas gracias

[[EX3]]

Lo primero que en un Label te sera imposible meter una imagen asi que ese punto mejor lo olvidamos. Sobre meter una imagen animada en un Command Button u otro control que permita imagenes, un gif animado no podras, al menos con los controles genericos, pero si podrias hacer animacion en un boton si tienes desmontada la animacion en imagenes sueltas. La idea seria tener las imagenes en un directorio junto al programa o en un comodo archivo de recursos por ejemplo (yo voto por este metodo) y con la ayuda de un Timer a un intervalo que tu definieras ir cambiando la imagen a mostrar en el control a traves de la propiedad Picture de este. Un sencillo ejemplo:

Código:

 Option Explicit

 Dim i As Integer

 Private Sub Timer1_Timer()
    ' Suponiendo que la animacion consta de 5 fotogramas y que estan
    ' nombrados como "Ani#.bmp" donde # representa un numero del 0 a 4:
    If i = 5 Then i = 0
    Command1.Picture = LoadPicture(App.Path & "\Ani" & i & ".bmp")
    i = i + 1

 End Sub 

Si lo que buscas es hacer un boton que muestre un gif animado podrias usar algun componente como MarchosoGif o AniGif (busca en la FAQ que puede que esten mencionados o busca en Google) ya que si no recuerdo mal dichos componentes tienen los eventos Click, KeyPress, KeyDown y KeyUp, con lo que podrias montar un boton sin problemas.

Salu2...

[oteron]

Muchas gracias ,probare con ese metodo q algo e visto en un programa q tengo por ai bajado de internet,investigaré tb lo otro y ya vere que ago

Saludos!!