Я пытаюсь использовать ListView вместо списка, чтобы дать мне некоторый контроль над цветами фона для отдельных строк.
Я добился изменения цвета фона списка в целом, например: BackColor = & HC000 & - Однако я хочу сделать одну из строк своим собственным цветом.
With ListView1
.View = lvwReport
.CheckBoxes = True
.FullRowSelect = True
.Gridlines = True
.BackColor = &HC000&
With .ColumnHeaders
.Clear
.Add , , "Language", 70
.Add , , "Subitem-1", 70
.Add , , "Subitem-2", 70
End With
Dim li As ListItem
Set li = .ListItems.Add()
li.Bold = True 'Bold item
'li.BackColor = Color.Gold
li.ListSubItems.Add , , "Subitem 1.1"
li.ListSubItems.Add , , "Subitem 1.2"
Set li = .ListItems.Add()
li.ListSubItems.Add , , "Subitem 2.1"
li.ListSubItems.Add , , "Subitem 2.2"
Set li = .ListItems.Add()
li.ListSubItems.Add , , "Subitem 3.1"
li.ListSubItems.Add , , "Subitem 3.2"
.ColumnHeaders(1).Position = 2
End With