Autor
tengo el form1 que se ve así:
al presionar el botón instalar aparece el gif:
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:
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
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
https://dl.dropboxusercontent.com/s/08qwy0t1yt3dl12/copiar.rar?dl=1&token_hash=AAEoC7NgB-SrfBRDO2ja6HwpKGyGXOIzrcWifjntTn2WdA
Gracias amigos
En línea
