Mostrar barra de progreso (ProgressBar)

[carlunchos]

Tengo un ProgressBar llamado Progreso en un form y al dar click al boton guardar necesito que muestre eso, el progreso de guardado.

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

'En el boton Guardar:

Progreso.Value = 0
Timer1.Enabled = True


'en el Timer1 tengo:

Private Sub Timer1_Timer()
Dim largo As String
largo As Long
largo = "C:\Mstest\novedades.txt"

With Progreso ' nombre del ProgressBar
If .Value < FileLen(largo) Then
.Value = .Value + 1
Else
MsgBox "Proceso Terminado"
Timer1.Enabled = False
End If
End With
End Sub


Pero no logro mostrar la barra de progreso. Donde esta el error?.

Saludos.

[wario64]

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

[GeoAvila]

en las FAQ's tambien tenes un ejemplo, si le queres hechar un ojo..

[carlunchos]

Gracias GeoAvila y wario64 por responder.

Lo solucione de esta forma, seguramente es una chapuceada pero me saca del brete:

Dim i As Long 'el numero de canal
Dim sPathBase As String 'contiene el camino al .mdb

'asignamos a un canal libre el archivo a abrir
i = FreeFile
'en esta variable ponemos el tamaño del archivo abierto
tamFich = LOF(i)
'ponemos Progreso en cero
Progreso.Value = 0
'y habilitamos el Timer1 que estaba deshabilitado para que controle
'el ProgressBar
Timer1.Enabled = True

With Progreso
'indicamos con tamFich el Max del ProgressBar
.Max = tamFich
'indicamos de 1 al Max del archivo
For j = 1 To tamFich
'mientras el valor del ProgressBar sea menor al tamFich
If .Value <= tamFich Then
'incrementamos el valor del mismo
.Value = .Value + 1
End If
Next
end with

Si alguien me puede pasar un codificado mas "profesional" muy agradecido.

Saludos.

[polielb]

Existe Alguna Forma De Ponerle Un Titulo Al Progresbar, Algo Como "" Procesando El Archivo "" & Archivo.text ??? Gracias ¡¡¡¡

[carlunchos]

Mi modesta experiencia me indica que no, pero podria ser que al momento de mostrar el progreso se haga visible una Label con ese texto, luego al finalizar que la Label se ponga Hide. Otra chapuceada y van .....


Saludos.

[vbx3m]

Si se le puede poner titulo pero no exactamente con ese control para eso debes bajar un ocx...

[polielb]

me podrias decir cual y de donde bajarlo GRCIAS ¡¡¡¡

[vbx3m]

de donde no me acuerdo.. se llama osprogress...

[recg]

Primero cuento las lineas del archivo y estas van a ser el máximo de la barra de progreso y asi no necesitas calcular un promedio.

Open ("C:\PROGRAMA_PDN\PN_DIGICEL.TXT") For Input As #1
Do While Not EOF(1)
Line Input #1, DATO
C = C + 1
Loop
Close #1

Open ("C:\PROGRAMA_PDN\PN_DIGICEL.TXT") For Input As #1
Do While Not EOF(1)
With ProgressBar1
.Min = 0
.Value = 0
.Max = C - 1
For i = 0 To .Max

Line Input #1, DATO

Close #2
.Value = i
Next
End With
Loop