Procedura: Creare testo con dimensioni variabili in un controllo ComboBox

In questo esempio viene illustrato un testo personalizzato disegnato in un controllo ComboBox. Quando un elemento soddisfa un determinato criterio, viene disegnato in un tipo di carattere più grande e diventa rosso.

Esempio

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

Compilazione del codice

Questo esempio richiede:

• Modulo di Windows

• Controllo ComboBox denominato ListBox1 con tre elementi nella Items proprietà . In questo esempio, i tre elementi sono denominati "One", Two", and Three". La DrawMode proprietà di ComboBox1 deve essere impostata su OwnerDrawVariable.

  Annotazioni

  Questa tecnica è applicabile anche al controllo ListBox — è possibile sostituire un ListBox con il ComboBox.

• Riferimenti agli spazi dei nomi System.Windows.Forms e System.Drawing.

Vedere anche

• DrawItem
• DrawItemEventArgs
• MeasureItem
• controlli con supporto Built-In Owner-Drawing
• Controllo ListBox
• Controllo ComboBox