如何：在 ComboBox 控件中创建大小可变的文本

更新：2007 年 11 月

此示例演示如何在 ComboBox 控件中自定义文本绘制。当项满足特定条件时，就会以较大的字体绘制并变为红色。

示例

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

编译代码

此示例需要：

• 一个 Windows 窗体。

• 一个名为 ListBox1 的 ComboBox 控件，其 Items 属性中包含三项。在此示例中，这三个项名为 "One", Two", and Three"。 ComboBox1 的 DrawMode 属性必须设置为 OwnerDrawVariable。

  说明：
  这种方法也适用于 ListBox 控件 -- 您可以用 ListBox 替换 ComboBox。

• 对 System.Windows.Forms 和 System.Drawing 命名空间的引用。

请参见

概念

具有内置所有者描述支持的控件

参考

DrawItem

DrawItemEventArgs

MeasureItem

其他资源

ListBox 控件（Windows 窗体）

ComboBox 控件（Windows 窗体）