vb中listview控件怎么改变某一项的字体和字体颜色
listview控件怎么将某一项的字体改为红色斜体字
listview.ListItems(index).ForeColor = vbRed '红色
listview.ListItems(index).Bold = True '粗体
VB6的 ListView 控件不支持字体属性，也不支持斜体
那么，改变某一行字的颜色可以吗？
如改变行5列3的字颜色怎么做呢？
谢谢！！
只要改变字的颜色，不改变背景！
这才是答案！！！！！！
ListView1.ListItems(m).ListSubItems.Item(2).ForeColor = vbRed '红色 ‘改变某格字体颜色
ListView1.ListItems(m).Bold = True '粗体 展开
一、改变颜色
在VB6的ListView控件中，可以改变项目及其子项的前景色、背景色。实现方法如下
（1）在窗体上布置一个ListView控件
（2）窗体代码如下
Option Explicit
Private Sub Form_Load()
Dim itemX As ListItem
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "类别"
.ColumnHeaders.Add , , "品名1"
.ColumnHeaders.Add , , "品名2"
Set itemX = .ListItems.Add(, , "水果")
itemX.SubItems(1) = "苹果"
itemX.SubItems(2) = "香蕉"
ChangeForeColor itemX, &H8000& '墨绿色
Set itemX = .ListItems.Add(, , "饮料")
itemX.SubItems(1) = "果汁"
itemX.SubItems(2) = "可乐"
ChangeForeColor itemX, vbRed '红色
Set itemX = .ListItems.Add(, , "文具")
itemX.SubItems(1) = "铅笔"
itemX.SubItems(2) = "橡皮"
ChangeForeColor itemX, vbBlue '蓝色
End With
End Sub
'-------------------------------------
' 修改ListView 项的前景色颜色
'-------------------------------------
Private Sub ChangeForeColor( _
ByVal item As ListItem, _
ByVal NewColor As Long)
'设置项的颜色
item.ForeColor = NewColor
'设置所有子项的颜色
Dim subItem As ListSubItem
For Each subItem In item.ListSubItems
subItem.ForeColor = NewColor
Next
End Sub
（3）运行效果
二、改变字体
ListView控件中，ListItem以及ListSubItem中没有字体属性，所以无法改变单独某个项或子项的字体；只能改ListView控件的字体。
运行效果
一、改变颜色
在VB6的ListView控件中，可以改变项目及其子项的前景色、背景色。实现方法如下
（1）在窗体上布置一个ListView控件
（2）窗体代码如下
Option Explicit
Private Sub Form_Load()
Dim itemX As ListItem
With ListView1
.View = lvwReport
.ColumnHeaders.Add , , "类别"
.ColumnHeaders.Add , , "品名1"
.ColumnHeaders.Add , , "品名2"
Set itemX = .ListItems.Add(, , "水果")
itemX.SubItems(1) = "苹果"
itemX.SubItems(2) = "香蕉"
ChangeForeColor itemX, &H8000& '墨绿色
Set itemX = .ListItems.Add(, , "饮料")
itemX.SubItems(1) = "果汁"
itemX.SubItems(2) = "可乐"
ChangeForeColor itemX, vbRed '红色
Set itemX = .ListItems.Add(, , "文具")
itemX.SubItems(1) = "铅笔"
itemX.SubItems(2) = "橡皮"
ChangeForeColor itemX, vbBlue '蓝色
End With
End Sub
'-------------------------------------
' 修改ListView 项的前景色颜色
'-------------------------------------
Private Sub ChangeForeColor( _
ByVal item As ListItem, _
ByVal NewColor As Long)
'设置项的颜色
item.ForeColor = NewColor
'设置所有子项的颜色
Dim subItem As ListSubItem
For Each subItem In item.ListSubItems
subItem.ForeColor = NewColor
Next
End Sub
（3）运行效果
二、改变字体
ListView控件中，ListItem以及ListSubItem中没有字体属性，所以无法改变单独某个项或子项的字体；只能改ListView控件的字体。
运行效果
listview.ListItems(index).BackColor = vbRed '红色
