¿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

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