Изменить цвет отдельного элемента в списке в пользовательской форме - PullRequest
0 голосов
/ 05 июня 2019

Я пытаюсь использовать 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...