ListView问题。第六列文字字体变色、变粗 ，如何实现？

Question

如题。
对于第六列字体颜色变成VBRED，且加粗？

Answer 1

ListView1.ListItems(1).ListSubItems(5).ForeColor=...
ListView1.ListItems(1).ListSubItems(5).Bold = True

Answer 2

回复人： Fanks(铁面人) ( ) 信誉：100  2005-09-16 09:08:00  得分: 0  
 
 
   设置subitems(5)的属性Set itemReturn = LvwAudit.ListItems.Add(, , i, 1, 1)
itemReturn.SubItems(5).ForeColor = vbRed'有异常，出错！！！！
  
 

Answer 3

应该就是设置subitems(5)的属性啊

Answer 4

'.SubItems是String类型数组
itemReturn.ListSubItems(5).ForeColor = vbRed

Answer 5

首先将listview的view属性设为lvwReport
再添加5个ColumnHeader
如下：
Dim itemreturn As ListItem
Dim i As Integer
i = 0
LvwAudit.View = lvwReport
LvwAudit.ColumnHeaders.Add , , "" & i
LvwAudit.ColumnHeaders.Add , , "" & i + 1
Set itemreturn = LvwAudit.ListItems.Add(, , "" & i)
itemreturn.Text = ""
itemreturn.SubItems(1) = "saafd"
itemreturn.ListSubItems(1).ForeColor = vbRed
itemreturn.ListSubItems(1).Bold =True