Locked Añadir un GIF en un form

[Expermicid]

Hola a todos.

 

Hoy les quiero dejar una forma facil de poder poner un gif en un form.

 

Primero nos descargamos Esta

This is the hidden content, please

• Sign In
• or
• Sign Up

y la guardamos para usarla luego.

 

Abrimos VB6 y creamos un nuevo proyecto.

 

Vamos al menu Proyecto > Componentes

Ponemos examinar y buscamos la OCX antes descargada. Boton Aplicar y luego Cerrar.

 

Y se nos agregara esta opcion en la barra de herramientas.

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Elijo dicha opcion y creo un elemento en el form. Al que llamare Gif.

 

Teniendo ya elejido el GIF, en la propiedad Load del form ponemos el siguiente codigo:

 

[lenguaje=vb]Private Sub Form_Load()

Gif.FileName = App.Path & "\Gif.gif"

End Sub[/lenguaje]

 

donde: App.Path & "\Gif.gif" es la ruta y el nombre del GIF.

 

Yo voy a dejar la imagen en la misma ruta que el programa ya compilado.

 

Y listo queda asi:

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Como en el anterior les dejo todo lo utilizado.

 

This is the hidden content, please

• Sign In
• or
• Sign Up

 

Saludos y espero que les sirva.

Edited February 16, 2014 by Expermicid