18/02/2005, 22:55
|
| | | Fecha de Ingreso: marzo-2004 Ubicación: Lerdo en Duragno Mexico
Mensajes: 27
Antigüedad: 20 años, 1 mes Puntos: 0 | |
| creo que aqui esta el error, solo va a estar subiendo el valor en cada timer, pero no muetra el valo de progreso real, necesitarias saber cuantos bytes se han escrito de el archivo, y sacar un porcentaje y entonces aplicarse al value del progress, lo malo es que no se si hay una funcion asi. pero si la hay quedaria algo asi
If .Value < FileLen(largo) Then
.Value = .Value + 1
Else
MsgBox "Proceso Terminado"
Timer1.Enabled = False
End If
.value round(bytes_escritos/FileLen(largo)*100) Then
if .value=100 then
MsgBox "Proceso Terminado"
Timer1.Enabled = False
End If |