请教下listview控件的一个问题

[ArmStronger]

怎么使listview控件的某个item的checkbox不可用，而后改变这一行的背景颜色？
在线等，谢谢！

[zhufenghappy]

背景色没改变，我是把某条记录字体颜色改变和字体加粗。然后实现该条记录不可用。如果楼主真要改变背景颜色，我认为可以加辅助控件控制实现
Private Sub Form_Load()
Me.ListView1.ColumnHeaders.Clear
Me.ListView1.ListItems.Clear
Me.ListView1.MultiSelect = True
Me.ListView1.ColumnHeaders.Add , , "调单编号", 1500
Me.ListView1.ColumnHeaders.Add , , "调单类别", 1000
Me.ListView1.ColumnHeaders.Add , , "调单内容", 1000
Me.ListView1.ColumnHeaders.Add , , "主调单位", 1000
Me.ListView1.ColumnHeaders.Add , , "配合单位", 1000

Dim VItem As ListItem
Me.ListView1.ListItems.Clear
Set VItem = Me.ListView1.ListItems.Add(Me.ListView1.ListItems.Count + 1, , "011")
VItem.SubItems(1) = "11"
VItem.SubItems(2) = "22"
VItem.SubItems(3) = "33"
Set VItem = Me.ListView1.ListItems.Add(Me.ListView1.ListItems.Count + 1, , "211")
VItem.SubItems(1) = "211"
VItem.SubItems(2) = "222"
VItem.SubItems(3) = "233"
VItem.Bold = True
VItem.ForeColor = vbRed
Set VItem = Me.ListView1.ListItems.Add(Me.ListView1.ListItems.Count + 1, , "311")
VItem.SubItems(1) = "311"
VItem.SubItems(2) = "322"
VItem.SubItems(3) = "333"
Set VItem = Me.ListView1.ListItems.Add(Me.ListView1.ListItems.Count + 1, , "411")
VItem.SubItems(1) = "411"
VItem.SubItems(2) = "422"
VItem.SubItems(3) = "433"
VItem.Bold = True
VItem.ForeColor = vbRed
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
If Item.Bold = True Then
Item.Checked = False
Exit Sub
End If
If Item.Checked = False Then
Item.Selected = False
Else
Item.Selected = True
End If
End Sub