Ejemplos sobre la barra de progreso de VB.NET

Hay muchos métodos de implementación para este ejemplo. Aquí tienes uno diferente:

Primero, carga los siguientes controles en el formulario: barra de progreso (barra de progreso), etiqueta (usando). para mostrar indicaciones de texto en tiempo real), dos temporizadores (para controlar el aumento o disminución de la barra de progreso respectivamente) y luego use el siguiente código para lograrlo:

Public Class Form1

Private Sub Form1_Load( ByVal remitente As System.Object, ByVal e As System.EventArgs) Maneja MyBase.Load

Timer1.Enabled = True

Timer1.Interval = 500

Temporizador2 .Intervalo = 500

ProgressBar1.Value = 0

ProgressBar1.Maximum = 100

ProgressBar1.Minimum = 0

End Sub

'El proceso anterior consiste en establecer el valor inicial del control, que también se puede configurar en el panel de propiedades

Private Sub Timer1_Tick(ByVal sender As System .Object, ByVal e As System.EventArgs) Maneja Timer1.

ProgressBar1.Value = 1

Label1.Text = "Actualmente completado" amp;

Si (ProgressBar1.Value = 100) Entonces

Timer1.Enabled = False

Timer2.Enabled = True

Finalizar si

End Sub

'timer1 se utiliza para controlar el aumento del progreso

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Maneja Timer2.Tick

ProgressBar1.Value - = 1

Label1.Text = "Actualmente completado" amp; ProgressBar1.Value amp ""

If ( ProgressBar1.Value = 0) Entonces

Timer1 .Enabled = True

Timer2.Enabled = False

Fin si

Fin Sub

'time2 se utiliza para controlar la reducción del progreso

Finalizar clase