vb.net ListView не будет принимать настройки цвета

Question

Я не понимаю, почему этот код не работает:

For Each rec As DataRow In rex 
     Dim entry As New ListViewItem({rec("Project"), rec("effort")}) 
     entry.BackColor = Color.DarkSlateGray 
     entry.ForeColor = Color.Ivory 
     BreakdownListview.Items.Add(entry) 
    Next 

В 2 настройки цвета полностью игнорируются. Элемент управления имеет белый фон и черный текст.

Answer 1

BackColor и ForeColor игнорируются, если элемент выбран, лучше всего установить OwnerDraw в true в ListView и нарисовать элементы самостоятельно.

Private Sub ListView1_DrawSubItem(sender As Object, e As DrawListViewSubItemEventArgs) Handles ListView1.DrawSubItem 
    If e.Item.Selected Then 
     Dim Brush As New SolidBrush(Color.SlateGray) 
     e.Graphics.FillRectangle(Brush, e.Bounds) 
     Brush.Dispose() 
    Else 
     Dim Brush As New SolidBrush(e.SubItem.BackColor) 
     e.Graphics.FillRectangle(Brush, e.Bounds) 
     Brush.Dispose() 
    End If 

    e.DrawText(TextFormatFlags.VerticalCenter) 
    e.DrawFocusRectangle(e.Bounds) 
End Sub 

Private Sub ListView1_DrawColumnHeader(sender As Object, e As DrawListViewColumnHeaderEventArgs) Handles ListView1.DrawColumnHeader 
    e.DrawDefault = True 
End Sub