Cómo: Crear texto de tamaño variable en un control ComboBox

Este ejemplo demuestra el dibujo personalizado de texto en un control ComboBox. Cuando un elemento cumple ciertos criterios, se dibuja en una fuente más grande y se vuelve rojo.

Ejemplo

Private Sub ComboBox1_MeasureItem(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MeasureItemEventArgs) Handles ComboBox1.MeasureItem
    Dim bFont As New Font("Arial", 8, FontStyle.Bold)
    Dim lFont As New Font("Arial", 12, FontStyle.Bold)
    Dim siText As SizeF

    If ComboBox1.Items().Item(e.Index) = "Two" Then
        siText = e.Graphics.MeasureString(ComboBox1.Items().Item(e.Index), _
lFont)
    Else
        siText = e.Graphics.MeasureString(ComboBox1.Items().Item(e.Index), bFont)
    End If

    e.ItemHeight = siText.Height
    e.ItemWidth = siText.Width
End Sub

Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As _
System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
    Dim g As Graphics = e.Graphics
    Dim bFont As New Font("Arial", 8, FontStyle.Bold)
    Dim lFont As New Font("Arial", 12, FontStyle.Bold)

    If ComboBox1.Items().Item(e.Index) = "Two" Then
        g.DrawString(ComboBox1.Items.Item(e.Index), lfont, Brushes.Red, _
e.Bounds.X, e.Bounds.Y)
    Else
        g.DrawString(ComboBox1.Items.Item(e.Index), bFont, Brushes.Black, e.Bounds.X, e.Bounds.Y)
    End If
End Sub

Compilar el código

Este ejemplo requiere:

• Formulario windows.

• Un control ComboBox denominado ListBox1 con tres elementos en la propiedad Items. En este ejemplo, los tres elementos se denominan "One", Two", and Three". La DrawMode propiedad de ComboBox1 debe establecerse en OwnerDrawVariable.

  Nota:

  Esta técnica también es aplicable al ListBox control, y puede sustituir un ListBox por un ComboBox.

• Referencias a los espacios de nombres System.Windows.Forms y System.Drawing.

Consulte también

• DrawItem
• DrawItemEventArgs
• MeasureItem
• Controles con compatibilidad con Built-In Owner-Drawing
• ListBox Control
• ComboBox Control