Esperando en línea con urgencia, ¿cómo usar la barra de progreso de vb?

Hace algún tiempo, vi un artículo en Internet sobre el uso del control de imagen para crear una barra de progreso. Lo probé y pensé que era muy bueno. Los amigos que conocen Photoshop pueden lograr fácilmente un progreso muy hermoso. bar. Aquí hay un especial Dedicado a todos

Paso 1: dibuje un PictureBox en el formulario, establezca su color de fondo como desee y ajuste su ancho y largo, y asígnele el nombre picProgress

Paso 2: Dibuje otro PictureBox como se describe a continuación. Haga clic derecho en picProgress, seleccione "Copiar", haga clic derecho nuevamente en el área de picProgress, seleccione "Pegar" y haga clic en "No" en el cuadro de diálogo de consulta emergente. Cambie el nombre del PictureBox recién dibujado a picFill y asegúrese de establecer su color de fondo en un color diferente al de picProgress.

Paso 3: dibuje un control Temporizador de forma predeterminada.

Paso 4: escriba; código ——

Private Sub Form_Load()

Me.Caption = "Haga clic en el formulario para iniciar la demostración"

picFill.Appearance = 0

picFill.Height = picProgress.Height

picFill.BackColor = vbBlue

Timer1.Enabled = False

Timer1.Interval = 100

picFill.Move 0, 0, 0 'Estado inicial de la barra de progreso

End Sub

Private Sub Form_Click()

Timer1.Enabled = Verdadero

End Sub

Private Sub Timer1_Timer()

Dim Max, Valor, L

P estático

'Max y Value: el valor máximo y el valor de progreso de la barra de progreso

Max = picProgress.Width

P = P + 1

L = 100

Valor = Max * P / L

Si P = L Entonces

MsgBox "Progreso completado"

Timer1.Enabled = False

Else

picFill.Move 0, 0, Value 'Rellenar según el valor de progreso

End If

End Sub