¿Cómo configurar una visualización de la barra de progreso para un evento en VB?
1. Haga clic en "Herramientas" -> "Opciones" en el menú del sistema, abra el cuadro de diálogo de opciones, luego seleccione la página "Controles", luego seleccione el control ActiveX, seleccione el control Microsoft ProgressBar Control en la barra de lista, generalmente hay dos versiones, a saber, V5.0 (SP2) y v6.0. Se recomienda utilizar la versión V5.0 (SP2). El estilo de este control puede cambiar según el cambio del estilo del tema de WIN, mientras que la V6.0 es fija y salta de una cuadrícula a otra.
Después de la selección, habrá una "X" en el pequeño cuadro al frente, haga clic en Aceptar.
Subcomando privado1_Click()
Atenuar A como doble
Atenuar B como doble
Atenuar C como doble
Atenuar D
Atenuar p como único
ProgressBar1.Min = 0
ProgressBar1.Max = 1000
ProgressBar1.Value = ProgressBar1.Min
ProgressBar1.Scrolling = ccScrollingSmooth
' Define el valor mínimo, valor máximo, progreso actual y estilo de la barra de progreso
Dim Mx As Long
Mx = 1000000
Para A = 1 A Mx
Para B = 1 A 10000000
C = B + A p>
Siguiente B
Si A Mod (Mx / ProgressBar1.Max) = 1 Entonces
' No necesitas hacerlo cada vez, solo hazlo una vez en un momento determinado.
' Calcula el progreso actual
ProgressBar1.Value = A*ProgressBar1.Max\Mx
DoEvents
Siguiente A
ProgressBar1.Value = ProgressBar1.Max
' Finalmente, progreso = el valor máximo de la barra de progreso.
MsgBox C
End Sub
El programa que estás intentando ejecutar con una gran cantidad de bucles puede ser un poco lento. Debes esperar un rato para ver el resultado. efecto
O establezca el bucle interno en 100 para que el efecto sea mejor
.