Barra de progreso
Saludos desde Mexico, quisiera ver si me puedes ayudar, tengo que realizar una barra de progreso como las que se utilizan en la instalación de algún paquete o sistema, la barra de progreso es para mostrar al usuario el progreso de una consulta que estoy realizando en un sistema, la verdad es que no tengo ni idea de como realizarlo ya que no se cuanto tiempo dura mi consulta, o si lo tengo que enlazar a algún componente. Gracias
1 Respuesta
Respuesta de kieleze
1
¿Tiene qué ser totalmente preciso?
Podrías hacer algo así como
Ver cuanto dura una consulta promedio...
Entonces le pones al tab la cantidad de segundos de esa consulta promedio
Y luego con un timer vas avanzado la consulta hasta llegar el total...
Sino otra posibilidad podría ser... algo así tener en cuenta la cantidad de instrucciones que hay hasta terminar de realizar la consulta..
He ir aumentando la progress bar a medida de que se va cumpliendo cada instrucción
Seria algo así
private comand_click
dim var as integer
progress.value = 10
set db = opendatabase bala bla bal
progress.value = 20
end sub
y asi hasta llegar al ultimo
Y para hacerlo por el tiempo podrías usar algo como esto... podrías hacerla usando porcentajes para que lleve alguna relación con cuanto avanza
Private i As Integer
Private Sub Form_Load()
ProgressBar1.Min = 0 'valor minimo de la barra
ProgressBar1.Max = 100 'valor maximo de la barra
Timer1.Interval = 100 ' se ejecuta el procedimiento cada 100 milisegundos
End Sub
Private Sub Timer1_Timer()
If i < 100 Then
ProgressBar1.Value = i 'aumentar o disminuir la barra
i = i + 1 'en este caso aumentar la barra
'i=i-1' asi decrementas la barra
Else
i = 0
End If
End Sub
Podrías hacer algo así como
Ver cuanto dura una consulta promedio...
Entonces le pones al tab la cantidad de segundos de esa consulta promedio
Y luego con un timer vas avanzado la consulta hasta llegar el total...
Sino otra posibilidad podría ser... algo así tener en cuenta la cantidad de instrucciones que hay hasta terminar de realizar la consulta..
He ir aumentando la progress bar a medida de que se va cumpliendo cada instrucción
Seria algo así
private comand_click
dim var as integer
progress.value = 10
set db = opendatabase bala bla bal
progress.value = 20
end sub
y asi hasta llegar al ultimo
Y para hacerlo por el tiempo podrías usar algo como esto... podrías hacerla usando porcentajes para que lleve alguna relación con cuanto avanza
Private i As Integer
Private Sub Form_Load()
ProgressBar1.Min = 0 'valor minimo de la barra
ProgressBar1.Max = 100 'valor maximo de la barra
Timer1.Interval = 100 ' se ejecuta el procedimiento cada 100 milisegundos
End Sub
Private Sub Timer1_Timer()
If i < 100 Then
ProgressBar1.Value = i 'aumentar o disminuir la barra
i = i + 1 'en este caso aumentar la barra
'i=i-1' asi decrementas la barra
Else
i = 0
End If
End Sub
