Visual Basic 2010 - 更改列表框中的文本顏色

Question

如何更改下拉組合列表框中某些項目的顏色？我有一個程序從文件中加載列表中的項目，並且我希望某些項目由開關（來自文件中其他字段的數據）確定爲不同的顏色。該列表將被排序。

例如 - 一個20人的列表被加載，其中3人的東西會改變他們的名字爲不同的顏色。這怎麼可以在代碼中完成？

ForeColor屬性不起作用...它更改列表中的所有項目。

Answer 1

您可以所有者繪製的項目，然後指定商品的顏色，例如：

Public Class Form1 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     ComboBox1.DrawMode = DrawMode.OwnerDrawFixed 

     Dim i As New Item() 
     i.ItemColor = Color.Red 
     i.Text = "Hello" 

     ComboBox1.Items.Add(i) 

     i = New Item() 
     i.ItemColor = Color.Blue 
     i.Text = "World" 

     ComboBox1.Items.Add(i) 

    End Sub 


    Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem 

     If e.Index < 0 Then Return 

     Dim i As Item 
     i = TryCast(ComboBox1.Items(e.Index), Item) 

     If i IsNot Nothing Then 
      e.Graphics.DrawString(i.Text, e.Font, New SolidBrush(i.ItemColor), e.Bounds) 
     End If 
    End Sub 
End Class 

Public Class Item 
    Public Text As String 
    Public ItemColor As Color 
End Class