Amigos, les cuento lo que quiero hacer es copiar archivo y que el tiempo que tome en copiar muestre un gif cargando.
tengo el form1 que se ve así:
(http://i55.servimg.com/u/f55/14/27/29/04/412.png)
al presionar el botón instalar aparece el gif:
(http://i55.servimg.com/u/f55/14/27/29/04/512.png)
use la dll "GIF89.DLL", el problema es como hacer para sincronizar el mostrar la imagen con el tiempo que tome en copiar el archivo. creo que con un control "timer" se podría lograr.
este es el código:
Private Sub Form_Load()
On Error Resume Next
'Si bien se carga como un ocx, esta es una dll. La misma copiarla en _
en el directorio de systema de windows para que funcione
Gif89a1.FileName = App.Path + "\cargando.gif"
End Sub
Private Sub Command1_Click()
Gif89a1.Visible = True
FileCopy "C:\0_sound.afs", "C:\a\0_sound.afs"
End Sub
¿Esto es posible? o alguna forma mas fácil de hacerlo
anexo el source por si alguien me puede ayudar por favor :D
https://dl.dropboxusercontent.com/s/08qwy0t1yt3dl12/copiar.rar?dl=1&token_hash=AAEoC7NgB-SrfBRDO2ja6HwpKGyGXOIzrcWifjntTn2WdA
Gracias amigos
HOLA!!!
Private Sub Command1_Click()
Gif89a1.Visible = True
FileCopy "C:\0_sound.afs", "C:\a\0_sound.afs"
Gif89a1.Visible = False
End Sub
agregale eso.
GRACIAS POR LEER!!!
hola dudo mucho que eso funcione, ya que FileCopy no creo que sea asicrono, lo mejor seria usar el mismisimo cuadro de window con SHFileOperation , y te ahorras el gif y el ocx,
http://www.recursosvisualbasic.com.ar/htm/listado-api/120-copiar-archivo-progreso.htm