Cómo crear un ProgressBar suave en Visual Basic .NET o Visual Basic 2005

Seleccione idioma Seleccione idioma
Id. de artículo: 323088 - Ver los productos a los que se aplica este artículo
Expandir todo | Contraer todo

En esta página

Resumen

En este artículo se muestra cómo crear un sencillo y personalizado UserControl para crear un suave, desplazamiento control ProgressBar .

En versiones anteriores del control ProgressBar , como la versión que se proporciona con el control ActiveX de controles comunes de Microsoft Windows, puede ver el progreso en dos vistas distintas. Para controlar estas vistas, utilice la propiedad de desplazamiento , que incluye la configuración estándar y suave. Desplazamiento suave genera un bloque sólido del color que representa el progreso y desplazamiento estándar aparece segmentada y se compone de una serie de bloques pequeños o rectángulos.

El control ProgressBar se incluye con Visual Basic .NET o Visual Basic 2005 admite sólo la configuración estándar.

El código de ejemplo en este artículo muestra cómo crear un control que admite las siguientes propiedades:
  • como mínimo . Esta propiedad obtiene o establece el valor inferior para el rango de valores válidos para el progreso. El valor predeterminado de esta propiedad es cero (0); no se puede establecer esta propiedad en un valor negativo.
  • máximo . Esta propiedad obtiene o establece el valor superior para el rango de valores válidos para el progreso. El valor predeterminado de esta propiedad es 100.
  • valor . Esta propiedad obtiene o establece el nivel actual de progreso. El valor debe estar en el intervalo que definen propiedades máximo y mínimo .
  • ProgressBarColor . Esta propiedad obtiene o establece el color de la barra de progreso.

Crear un Control ProgressBar de personalizado

  1. Siga estos pasos para crear una nueva biblioteca de control de Windows del proyecto en Visual Basic .NET o Visual Basic 2005:
    1. Inicie Microsoft Visual Studio .NET o Microsoft Visual Studio 2005.
    2. En el menú archivo , seleccione nuevo y, a continuación, haga clic en proyecto .
    3. En el cuadro de diálogo Nuevo proyecto , haga clic en Proyectos de Visual Basic bajo Tipos de proyecto y, a continuación, haga clic en Biblioteca de controles de Windows , bajo plantillas .

      Nota En Visual Studio 2005, haga clic en Visual Basic bajo Tipos de proyecto .
    4. En el cuadro nombre , escriba SmoothProgressBar y, a continuación, haga clic en Aceptar .
    5. En el Explorador de proyectos, cambiar el nombre del módulo de clase predeterminado de UserControl1 a SmoothProgressBar.vb.
    6. En la ventana Propiedades para el objeto UserControl , cambie la propiedad de nombre de UserControl1 a SmoothProgressBar .
  2. En este momento, habitualmente se hereda de la clase de ese control y, a continuación, agregar la funcionalidad adicional para extender un control existente. Sin embargo, la clase ProgressBar es sealed y no se puede heredar. Por lo tanto, debe generar el control desde el principio.

    Agregue el código siguiente al módulo de clase del UserControl , inmediatamente después de la sección "Código generado por el Diseñador de Windows Forms":
    Private min As Integer = 0               ' Minimum value for progress range
    Private max As Integer = 100             ' Maximum value for progress range
    Private val As Integer = 0               ' Current progress
    Private barColor As Color = Color.Blue   ' Color of progress meter
    
    Protected Overrides Sub OnResize(ByVal e As EventArgs)
        ' Invalidate the control to get a repaint.
        Me.Invalidate()
    End Sub
    
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim g As Graphics = e.Graphics
        Dim brush As SolidBrush = New SolidBrush(barColor)
        Dim percent As Decimal = (val - min) / (max - min)
        Dim rect As Rectangle = Me.ClientRectangle
    
        ' Calculate area for drawing the progress.
        rect.Width = rect.Width * percent
    
        ' Draw the progress meter.
        g.FillRectangle(brush, rect)
    
        ' Draw a three-dimensional border around the control.
        Draw3DBorder(g)
    
        ' Clean up.
        brush.Dispose()
        g.Dispose()
    End Sub
    
    Public Property Minimum() As Integer
        Get
            Return min
        End Get
    
        Set(ByVal Value As Integer)
            ' Prevent a negative value.
            If (Value < 0) Then
                min = 0
            End If
    
            ' Make sure that the minimum value is never set higher than the maximum value.
            If (Value > max) Then
                min = Value
                min = Value
            End If
    
            ' Make sure that the value is still in range.
            If (val < min) Then
                val = min
            End If
    
    
    
            ' Invalidate the control to get a repaint.
            Me.Invalidate()
        End Set
    End Property
    
    Public Property Maximum() As Integer
        Get
            Return max
        End Get
    
        Set(ByVal Value As Integer)
            ' Make sure that the maximum value is never set lower than the minimum value.
            If (Value < min) Then
                min = Value
            End If
    
            max = Value
    
            ' Make sure that the value is still in range.
            If (val > max) Then
                val = max
            End If
    
            ' Invalidate the control to get a repaint.
            Me.Invalidate()
        End Set
    End Property
    
    Public Property Value() As Integer
        Get
            Return val
        End Get
    
        Set(ByVal Value As Integer)
            Dim oldValue As Integer = val
    
            ' Make sure that the value does not stray outside the valid range.
            If (Value < min) Then
                val = min
            ElseIf (Value > max) Then
                val = max
            Else
                val = Value
            End If
    
            ' Invalidate only the changed area.
            Dim percent As Decimal
    
            Dim newValueRect As Rectangle = Me.ClientRectangle
            Dim oldValueRect As Rectangle = Me.ClientRectangle
    
            ' Use a new value to calculate the rectangle for progress.
            percent = (val - min) / (max - min)
            newValueRect.Width = newValueRect.Width * percent
    
            ' Use an old value to calculate the rectangle for progress.
            percent = (oldValue - min) / (max - min)
            oldValueRect.Width = oldValueRect.Width * percent
    
            Dim updateRect As Rectangle = New Rectangle()
    
            ' Find only the part of the screen that must be updated.
            If (newValueRect.Width > oldValueRect.Width) Then
                updateRect.X = oldValueRect.Size.Width
                updateRect.Width = newValueRect.Width - oldValueRect.Width
            Else
                updateRect.X = newValueRect.Size.Width
                updateRect.Width = oldValueRect.Width - newValueRect.Width
            End If
    
            updateRect.Height = Me.Height
            ' Invalidate only the intersection region.
            Me.Invalidate(updateRect)
        End Set
    End Property
    
    Public Property ProgressBarColor() As Color
        Get
            Return barColor
        End Get
    
        Set(ByVal Value As Color)
            barColor = Value
    
            ' Invalidate the control to get a repaint.
            Me.Invalidate()
        End Set
    End Property
    
    Private Sub Draw3DBorder(ByVal g As Graphics)
        Dim PenWidth As Integer = Pens.White.Width
    
        g.DrawLine(Pens.DarkGray, _
            New Point(Me.ClientRectangle.Left, Me.ClientRectangle.Top), _
            New Point(Me.ClientRectangle.Width - PenWidth, Me.ClientRectangle.Top))
        g.DrawLine(Pens.DarkGray, _
            New Point(Me.ClientRectangle.Left, Me.ClientRectangle.Top), _
            New Point(Me.ClientRectangle.Left, Me.ClientRectangle.Height - PenWidth))
        g.DrawLine(Pens.White, _
            New Point(Me.ClientRectangle.Left, Me.ClientRectangle.Height - PenWidth), _
            New Point(Me.ClientRectangle.Width - PenWidth, Me.ClientRectangle.Height - PenWidth))
        g.DrawLine(Pens.White, _
            New Point(Me.ClientRectangle.Width - PenWidth, Me.ClientRectangle.Top), _
            New Point(Me.ClientRectangle.Width - PenWidth, Me.ClientRectangle.Height - PenWidth))
    End Sub
    					
  3. En el menú Generar , haga clic en Generar solución para compilar el proyecto.

Crear una aplicación cliente de ejemplo

  1. En el menú archivo , seleccione nuevo y, a continuación, haga clic en proyecto .
  2. En el cuadro de diálogo Agregar nuevo proyecto , haga clic en Proyectos de Visual Basic bajo Tipos de proyecto , haga clic en Aplicación para Windows en plantillas y, a continuación, haga clic en Aceptar .
  3. Siga estos pasos para agregar dos instancias del control SmoothProgressBar al formulario:
    1. En el menú Herramientas , haga clic en Personalizar cuadro de herramientas .
    2. Haga clic en la ficha Componentes de .NET Framework .
    3. Haga clic en Examinar y, a continuación, busque el archivo SmoothProgressBar.dll, que creó en la sección "Create a Custom ProgressBar Control".
    4. Haga clic en Aceptar . Observe que el control SmoothProgressBar se agrega al cuadro de herramientas.
    5. Arrastre dos instancias del control SmoothProgressBar desde el cuadro de herramientas al formulario predeterminado de Windows proyecto de aplicación.
  4. Arrastre un control Timer desde el cuadro de herramientas hasta el formulario.
  5. Agregue el código siguiente al evento Tick del control Timer :
    If (Me.SmoothProgressBar1.Value > 0) Then
        Me.SmoothProgressBar1.Value -= 1
        Me.SmoothProgressBar2.Value += 1
    Else
        Me.Timer1.Enabled = False
    End If
    					
  6. Arrastre un control Button desde el cuadro de herramientas al formulario.
  7. Agregue el código siguiente al evento Click del control Button :
    Me.SmoothProgressBar1.Value = 100
    Me.SmoothProgressBar2.Value = 0
    
    Me.Timer1.Interval = 1
    Me.Timer1.Enabled = True
    					
  8. En el menú Depurar , haga clic en iniciar para ejecutar el proyecto de ejemplo.
  9. Haga clic en el button. Observe que los indicadores de dos progreso mostrar el texto "progreso". Un indicador de progreso muestra el progreso de una manera creciente y el indicador de progreso muestra el progreso en una disminución o un modo de cuenta atrás.

Propiedades

Id. de artículo: 323088 - Última revisión: miércoles, 06 de diciembre de 2006 - Versión: 3.3
La información de este artículo se refiere a:
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic 2005
Palabras clave: 
kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB323088 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 323088

Enviar comentarios

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com