La barra de progreso es uno de los controles más simples en Visual Basic . El bar informa sobre el estado de una operación informática, por ejemplo, durante la instalación de nuevo software o algún otro proceso largo , como una transferencia de archivos de red . El bar ofrece al usuario una garantía de que el programa no se ha estrellado . El proceso es el mismo en ambos Visual Basic 6.0 y Basic 2008 Express Edition Visual aunque el código en este último es un poco diferente . Cómo funciona
como una operación procede , el código lee continuamente la cantidad que se ha completado y calcula el estado . Si el valor mínimo se establece en uno y el máximo de 100 , la barra se llene la mitad de la visualización de la barra cuando el 50 por ciento de la operación se ha completado . Para realizar este cálculo , el programador debe saber cuánto tiempo se desarrollará la operación . A modo de ejemplo , si el usuario está descargando un archivo de cinco MB, por el momento 2,5 MB han descargado, la barra se habrá movido a mitad de camino .
Crear una barra de progreso
< p> Para empezar, cree un nuevo proyecto después de la apertura de Visual Basic . Haga clic en " Archivo", " Nuevo Proyecto " y seleccionar la opción " formato EXE estándar" . Agregue el control ProgressBar haciendo clic en "proyectar", "Componentes " . Encuentre los controles comunes de Windows de Microsoft en la lista. Elija los controles comunes de Microsoft Visual Basic ( SP6 ) , colocando una marca en la casilla al lado del control. Haga clic en " Aplicar " y "OK ". Usted debe ver el control en la lista en el panel izquierdo . Haga doble clic en él para agregarlo al formulario.
Ajuste la Propiedades en venta
Si se trabaja con una operación en la que el porcentaje de finalización es fácil de calcular como una descarga de archivos , establezca la propiedad mínima en el panel Propiedades en "1 " y el máximo de " 100 ". Otra forma de establecer el máximo es tener el código de contar el número de iteraciones de alguna operación , comparar esto con el número total , y calcular donde la barra debe ser . Propiedades Height y dejó el control de la altura de la barra en sí y en el que aparece por la izquierda de la pantalla. Sólo otras dos propiedades de la materia : si la barra se ejecuta a través de la pantalla de forma vertical u horizontal , y si trozos incrementales aparece o la barra es más suave . Elija las de la " orientación" y "Propiedades de desplazamiento . " Si el máximo no puede ser predeterminada , es posible utilizar un control de animación para mantener la barra que se desplaza hasta que se complete la operación . Esta mejora va más allá del ámbito de este tutorial. Desde la barra no aparece hasta que comience una operación , establezca la propiedad Visible en "False ". Para este ejemplo , establezca la propiedad máxima de " 10000" y dejar el mínimo en "0 ". Por último , agregar un control de botón de comando en la lista de herramientas al formulario para iniciar la acción . Cambie la propiedad (Name ) en " btnStart " y el título a " Inicio".
Escribe el Código
Haga clic en " Ver ", "Código " para abrir la ventana de programación . Escriba las siguientes líneas exactamente como se muestra . Las tres primeras líneas de carga del formulario y crea la barra de progreso visible. El resto del código se ejecuta a través de una secuencia repetitiva para demostrar la barra . El número final de este código se establece muy alto para frenar la barra de progreso por la visibilidad . Reemplace los pasos de la segunda sección que comienza con "Sub btnStart_Click privada ( ) y terminando " End Sub "con cualquier evento que la sincronización para conseguir un nuevo ProgressBar1.Value . Siempre añadir un comando para cambiar la visibilidad de la barra de " False " cuando finalice la rutina.
Private Sub Form_Load () ProgressBar1.Visible = TrueEnd Sub
Private Sub btnStart_Click () n As IntegerFor n = 1 Para 10000ProgressBar1.Value = nSiguiente nFin Sub < br >
probar el código pulsando la tecla " F5 " .
Visual Basic 2008 Express Edition Version
En Visual Basic 2008 , el sustituto de las siguientes líneas de las líneas que comienzan Private Sub :
Private Sub Form1_Load ( eventSender ByVal como System.Object , ByVal eventArgs como System.EventArgs ) Handles MyBase.LoadPrivate Sub btnStart_Click ( eventSender ByVal como System.Object , ByVal eventArgs como System.EventArgs ) Maneja btnStart.Click
