Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo configurar una visualización de la barra de progreso para un evento en VB?

¿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

End If

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

.