Cómo: Cambiar el color y la fuente del objeto StatusBarPanel mediante Visual Basic .NET

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.

319312
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Para obtener una versión de Microsoft Visual C# .NET de este artículo, consulte 319311.

En esta tarea

Resumen
En este artículo paso a paso se muestra cómo establecer mediante programación el color y la fuente del objeto StatusBarPanel utilizando Visual Basic. NET.

El control StatusBar incluye una propiedad de paneles , que es una colección de objetos StatusBarPanel . La clase StatusBarPanel no tiene ningún miembro que permiten cambiar el color de fondo o la fuente. Sin embargo, puede utilizar GDI + para dibujar el panel con un color de fondo y dibujar el texto mediante una fuente y un color que especifique.

back to the top

Pasos para crear el ejemplo

  1. Siga estos pasos para crear una aplicación para Windows en Visual Basic. NET:
    1. Inicie Microsoft Visual Studio NET..
    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, después, haga clic en Aplicación para Windows en plantillas . De forma predeterminada, se crea Form1.
  2. Agregue un control StatusBar a Form1. De forma predeterminada, el control se denomina StatusBar1.
  3. En la ventana Propiedades de StatusBar1 , haga clic en paneles y, a continuación, haga clic en el botón de puntos suspensivos situado junto a la propiedad paneles .
  4. Siga estos pasos en el cuadro de diálogo Editor de colecciones StatusBarPanel :
    1. Haga clic tres veces en Agregar para agregar tres paneles al control StatusBar . De forma predeterminada, los paneles se denominan StatusBarPanel1, StatusBarPanel2 y StatusBarPanel3.
    2. Cambie la propiedad estilo de cada panel a OwnerDraw .
    3. Haga clic en Aceptar para cerrar el cuadro de diálogo Editor de colecciones StatusBarPanel .
  5. En la ventana de propiedades de StatusBar1 , cambie la propiedad ShowPanels en true .
  6. Haga doble clic en StatusBar1 para abrir la ventana de código de Form1 y agregue el código siguiente en la clase Form1 :
    Dim p As Pen = New Pen(Color.White)Dim brYellowFontBrush = New SolidBrush(Color.Yellow)Dim arBrushes(2) As SolidBrushPrivate Sub StatusBar1_DrawItem(ByVal sender As Object, _ByVal sbdevent As System.Windows.Forms.StatusBarDrawItemEventArgs) _Handles StatusBar1.DrawItem    Dim g As Graphics = sbdevent.Graphics    Dim sb As StatusBar = CType(sender, StatusBar)    Dim rectf = New RectangleF(sbdevent.Bounds.X, sbdevent.Bounds.Y, _    sbdevent.Bounds.Width, sbdevent.Bounds.Height)    g.DrawRectangle(p, sbdevent.Bounds)    sbdevent.Graphics.FillRectangle(arBrushes(sbdevent.Index), sbdevent.Bounds)    g.DrawString("Panel" & sbdevent.Index, sb.Font, brYellowFontBrush, rectf)End SubPrivate Sub Form1_Load(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles MyBase.Load    Dim i As Integer    arBrushes(0) = New SolidBrush(Color.Blue)    arBrushes(1) = New SolidBrush(Color.Green)    arBrushes(2) = New SolidBrush(Color.Pink)End Sub					
  7. Reemplace el código en el método Dispose de Form1 con el siguiente código:
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)     If disposing Then         If Not (components Is Nothing) Then             components.Dispose()         End If         Dim i As Integer         p.Dispose()         brYellowFontBrush.Dispose()         For i = 0 To arBrushes.Length - 1             arBrushes(i).Dispose()         Next     End If     MyBase.Dispose(disposing)End Sub					
  8. Presione F5 para ejecutar la aplicación.
back to the top

Advertencia: este artículo se ha traducido automáticamente

Propiedades

Id. de artículo: 319312 - Última revisión: 02/26/2014 18:12:00 - Revisión: 4.1

  • Microsoft Visual Basic .NET 2003 Standard Edition
  • Microsoft Visual Basic .NET 2002 Standard Edition
  • Microsoft .NET Framework 1.1
  • Microsoft .NET Framework 1.0
  • Microsoft .NET Framework Class Libraries 1.1
  • Microsoft .NET Framework Class Libraries 1.0
  • kbnosurvey kbarchive kbmt kbhowtomaster KB319312 KbMtes
Comentarios