¿Cómo funciona la barra de progreso "Iniciar sesión" de VB6?

Se proporcionan dos ideas: la primera es imitar la barra de progreso del escaneo X, pero es ligeramente inferior:

Agregar un temporizador con un intervalo de tiempo establecido en 1.

Un cuadro de imagen llamado P1 - TZW.

Ajuste d a único

Subform_Load() privado

d = P1. Ancho/255

P1. AutoRedraw = True

Conector final

Subtemporizador privado 1_Timer()

C estática es tan larga como

Dibujo c, d

Si c<= 0 entonces d = P1. Ancho/255

Si c & gt = P1. ¿Qué pasa con el ancho?

d = -(P1. Ancho/255)

Terminará si...

c = c + d

Conector final

Subimagen (la posición de derivación es larga, la derivación a es única)

Ajuste b a bytes

b = 255: P1. Cls

Hasta b = 0

Si Pos & lt= 0 entonces a = P1. Ancho/255

Si Pos>= P1. El ancho es a = -(P1. Ancho / 255)

P1. Línea(Posición, 0) - (Posición + a, P1. Alto), RGB (b, b, b), BF

Pos = Pos + a: b = b - 1

Anillo

Conector final

El segundo es el código dado por el profesor CBM666 en la barra VB:

Agregar Microsoft Windows Common Controls 6.0 (SP4) a la parte de Ingeniería.

Agrega tres controles: imagen 1 barra de progreso 1 comando 1.

Subform_Load privado()

Imagen 1. ForeColor = vbWhite

Imagen 1. FontBold = True

Imagen 1. AutoRedraw = Verdadero

ProgressBar1. Valor mínimo = 0

ProgressBar1. Valor máximo = 20

Conector final

Subcomando privado 1_Click()

Dim i tiene la misma longitud, j tiene la misma longitud

Para i = 1 a 20

Para j = 1 a 100000

Múltiples actividades

Luego

Llame al progreso (i * 5 )

Barra de progreso1. valor = i

Luego

Conector final

Subprogreso privado (porcentaje de longitud)

Mostrar mensaje como cadena

Porcentaje. "%"

Con imagen 1

. Cls

Imagen 1. fila(0,0)-(porcentaje/100*). Ancho de escala. EscalaAltura), vbBlue, BF

. CurrentX =(.tick-width.text-width(mensaje))/2

. CurrentY =(.ScaleHeight.TextHeight(msg)) / 2

Imagen 1. Imprimir correos electrónicos

. Actualízate

Termina con...

Conector final

Espero que LZ esté satisfecho -

No sé qué código está utilizando, solo necesita cambiar la condición de activación del código que activa la ejecución de la barra de progreso a la condición de activación que desee. Por ejemplo, en el segundo fragmento de código, si presiona el comando 1 para activar la barra de progreso, puede usar una declaración IF para juzgarlo. Si se cumplen las condiciones, ejecute el código copiado del comando 1...

No lo sé. ¿Está claro...