Buenas!.
Tengo una barra de progreso y me gustaría que a medida que los procesos van finalizando,
se fuese incrementando la barra de progreso.
El problema es que parece que cada cosa va por un lado.
Quiero decir que a lo mejor la barra de progresos ha finalizado ( que ni me he enterado como va aumentando)
y por otro lado se siguen mostrando los directorios en el TextArea. Un descontrol.
Código:
Private hProc As Process
Private adirectorios As New String[]
Private incrementos As Integer
Public Sub Form_Open()
adirectorios = Dir(User.Home, "*", gb.Directory).Sort()
incrementos = 1 / adirectorios.Count
ProgressBar1.Value = 0
End
Public Sub Button1_Click()
For j As Integer = 0 To adirectorios.Max
hProc = Shell "ls -l " & adirectorios[j] For Input As "Proceso"
Next
End
Public Sub Proceso_Read()
Dim scad As String
Read #Last, scad, -1024
TextArea1.Text &= scad
End
Public Sub Proceso_Kill()
'El progresos de la barra debería aumentar cada vez que acaba un proceso. A cada lectura de un directorio
Wait 0.1
incrementos += 1
ProgressBar1.Value += incrementos
End
Puede que falte un wait, ok, pero puede no ser suficiente. Controlar los procesos no parece fácil.
Adjunto el código fuente.
Saludos