El control de barra de progreso de Visual Basic 2008 muestra visualmente el progreso de una operación en un programa. Al crear el programa , se establece la propiedad " máximo " para la barra de progreso "mínimo " y , y mientras que el programa realiza alguna acción en los datos , se actualiza el estado de la barra de progreso al cambiar la propiedad "value" . Por ejemplo , si el programa se abre un archivo y lee 50 líneas de texto en una matriz de cadenas, establecer el mínimo de la barra de progreso a cero y el máximo de 50 . Cuando el programa lee las primeras 25 líneas , cambie el valor de la barra de progreso para 25 para mostrar la señal de progreso en el punto medio . Instrucciones
1

Abra un proyecto de Visual Basic 2008 en modo de diseño . Haga doble clic en el control " ProgressBar " para agregarlo al formulario. Haga doble clic en el control "Button" para añadirlo a la forma también. Colocar los controles en el formulario como desee que aparezcan.
2

Abra la ventana de código. Tipo " Importa System.IO " en la línea superior para hacer su programa de llamar a funciones de entrada y salida del sistema. Esto es necesario para abrir y leer un archivo .
3

Abra la función " Button1_Click " . Escriba lo siguiente:

cuenta Dim As Integer = 0

entrada As StreamReader = New StreamReader ("c : \\ archivo.txt ")

líneas Dim ( 1000 ) As String

total de Dim como Integer

La primera declaración declara una variable de contador simple. El segundo se abre un objeto StreamReader que lee un archivo de texto llamado " archivo.txt ". La tercera declaración crea una matriz de cadenas con capacidad para 1.000 líneas del archivo de texto . La última declaración crea una variable entera que va a utilizar para actualizar la barra de progreso
4

Escriba lo siguiente : .

Mientras
líneas

No input.EndOfStream ( count) = input.ReadLine ()
cuenta

+ = 1 End While

Este bucle lee el archivo de texto y las tiendas y almacenes de cada línea en un punto en la matriz hasta que cada línea ha sido leído
5

Escriba lo siguiente : .

progreso = cuenta

ProgressBar1.Minimum = 0

ProgressBar1.Maximum = progreso

establece la variable " progreso" al valor que la variable "cuenta" , y selecciona el valor mínimo de la barra de progreso a cero y el máximo para el valor que el "progreso ", sostiene .
6

Escriba lo siguiente :

For i = 0 To curso - 1

callToSomeFunction (array )

progreso - = 1

ProgressBar1.Value = i

Siguiente I Love

ciclos Este bucle a través de cada elemento de la matriz y realiza una acción sobre el mismo en la línea " callToSomeFunction (array ) " . A medida que se procesa cada elemento de la matriz , la variable "progreso " se disminuye en uno y el valor de la barra de progreso se cambia para reflejar el estado del bucle.