EJEMPLO DE UNA PROGRESSBAR PORFAVOR!!!
HOLA
NO SE SI ALGUIEN ME PUEDA AYUDAR PORVARO CON UN EJEMPLO DE UNA PROGRESSBAR PARA PONERLOS CUANDO INGRESO DE UNA FORM A OTRA, COMO EN CADA FORMS TENGO CARGADOS VIDEOS E IMAGENES LA CARGA SE HACE LENTE Y QUISIERA PONER EN LO QUE SE CARGA UNA PROGRESSBAR O ALGO PARECIDO.
GRACIAS DE ANTEMANO
NO SE SI ALGUIEN ME PUEDA AYUDAR PORVARO CON UN EJEMPLO DE UNA PROGRESSBAR PARA PONERLOS CUANDO INGRESO DE UNA FORM A OTRA, COMO EN CADA FORMS TENGO CARGADOS VIDEOS E IMAGENES LA CARGA SE HACE LENTE Y QUISIERA PONER EN LO QUE SE CARGA UNA PROGRESSBAR O ALGO PARECIDO.
GRACIAS DE ANTEMANO
No se si esto te ayudará, pero es que el uso de una progressbar es de lo más tonto.
Sub TusOperaciones()
operacion1
ActualizaBarra(25)
opracion2
ActualizaBarra(50)
operacion3
ActualizaBarra(75)
operacion4
ActualizaBarra(100)
End Sub
Private Sub ActualizaBarra(iPorcentaje As Integer)
Me.BarraProgreso.Value = iPorcentaje
Me.lblEstado = "Exportado " & iPorcentaje & " %"
If iPorcentaje = 100 Then
Me.lblEstado = "Completado"
End If
End Sub
Suerte
Sub TusOperaciones()
operacion1
ActualizaBarra(25)
opracion2
ActualizaBarra(50)
operacion3
ActualizaBarra(75)
operacion4
ActualizaBarra(100)
End Sub
Private Sub ActualizaBarra(iPorcentaje As Integer)
Me.BarraProgreso.Value = iPorcentaje
Me.lblEstado = "Exportado " & iPorcentaje & " %"
If iPorcentaje = 100 Then
Me.lblEstado = "Completado"
End If
End Sub
Suerte
