1
Abra un proyecto de Visual Basic . Haga doble clic en el control " barra de progreso " en la barra de herramientas para añadir " ProgressBar1 " al formulario. Haga doble clic en el control "Button" para añadir " Button1 " para el formulario.
2
Press " F7 " para abrir la ventana de código . Abra el subprograma " Form1_Load " y escriba lo siguiente :
ProgressBar1.Minimum = 0ProgressBar1.Maximum = 5ProgressBar1.Value = 0
Este código establece los valores iniciales de la variable de progreso, así como los valores mínimo , máximo y la corriente de la barra de progreso . Puede establecer un valor máximo diferente dependiendo de lo que necesite la barra de progreso para
3
Abra el subprograma " Button1_Click " y escriba lo siguiente : .
Si ProgressBar1 . Valor < ProgressBar1.Maximum ThenProgressBar1.Value + = 1Si ProgressBar1.Value = ProgressBar1.Maximum ThenMsgBox ( " ¡Ya está! ") End IfEnd Si
Cuando el usuario hace clic en el botón , el código comprueba si la barra de progreso es inferior al valor máximo. Si es así , se incrementa el valor en uno , haciendo que la barra de progreso en la forma de mostrar una mayor realización también. A continuación, comprueba de nuevo para ver si el valor ha alcanzado el máximo . De esta manera , cuando la barra de progreso no llega al máximo , no se puede incrementar el valor de continuar , por lo que se evita un error fuera de rango.