Añadiendo una barra de progreso repitiendo en Microsoft Visual Basic ( VB ) puede hacer que su aplicación sea más fácil de usar , sino que comunica al usuario que la aplicación está funcionando en segundo plano . Un control de barra de progreso indica visualmente el progreso de una operación larga , mostrando una barra continua que se llena de izquierda a derecha . Usted puede mostrar continuamente la misma barra de progreso se repite mediante un " While ... Loop " y cambiando el valor de la barra de progreso. Cosas que necesitará
Microsoft Visual Studio
Ver Más instrucciones
1
lanzamiento Microsoft Visual Studio , haga clic en "Nuevo proyecto " en el panel izquierdo de la pantalla del ordenador , y ampliar " Plantillas instaladas . " abajo " Visual Basic" Haga clic en "Windows " y haga doble clic en " Aplicación de Windows Forms " en el centro de la ventana de diálogo para crear un nuevo proyecto.
2
doble clic en " ProgressBar " en el panel "Toolbox" para agregar un nuevo control de barra de progreso. Haga doble clic en " botón " para añadir un nuevo botón al formulario. Añadir un segundo botón.
3
doble clic en " Button1 " para crear un nuevo evento de clic de botón. Agregue el código siguiente para crear un bucle para repetir la barra de progreso hasta que el usuario hace clic en el segundo botón :
xCntr Dim As Integer
xCntr = 1
userWantsToStop = False
Me.ProgressBar1.Minimum = 0
Me.ProgressBar1.Maximum = 1,000
Do While ( userWantsToStop = False )
Me.ProgressBar1.Value = xCntr
Application.DoEvents ( ) guía
System.Threading.Thread.Sleep ( 1 )
Si ( xCntr = 1,000 ) Luego
xCntr = 1
End If
xCntr = xCntr + 1
Loop
4
volver a la vista Diseño y haga doble clic en " Button2 " para crear un evento de clic en este botón. Agregue el código siguiente para restablecer la barra de progreso y detener el bucle while en el paso anterior :
userWantsToStop = True
Me.ProgressBar1.Value = 0
5
Pulse la tecla " F5 " para ejecutar el programa y haga clic en " Button1 " para iniciar la repetición de la barra de progreso. Haga clic en " Button2 " para detenerlo.
