主题：listbox各选项可单独设定背景色吗

e.Form.Controls("ListColorR").Combolist = DataTables("OrderColorSize").GetComboListString("StyleColor","StyleColor Is Not Null")
Dim str As String = DataTables("BaseColor").GetComboListString("CnColors","CnColors Is Not Null")
For Each s As String In e.Form.Controls("ListColorR").Combolist.Split("|")
If str.Contains(s) Then
str = str.Replace(s,"")
End If
Next
e.Form.Controls("ListColorL").Combolist = str.Replace("||","|")