VB ListView 控件加色
http://zhidao.baidu.com/question/118136588.html
如:
Me.ListView1.ListItems(行数).ListSubItems.Item(列数).ForeColor = vbRed '红色 ‘改变某格字体颜色
但目前有一个bug, 需要如下使用,不然,最后一行数据,不能改变颜色
preStatus = 0 row = 1 Do While Not rs.EOF If preStatus = common.DB_RECORD_STATUS_DELETE Then For t = 1 To 9 ' 注:不能改变当前行的颜色,只能改变当前行之前的颜色。 Me.ListView1.ListItems(row - 1).ListSubItems.Item(t).ForeColor = vbRed '红色 Next End If preStatus = rs("status") If rs!gender = "M" Then tb = 1 If rs!gender = "F" Then tb = 2 Set addLVW = Me.ListView1.ListItems.add(, , rs!repair_no) wend
‘ 以下改变最后一行数据的颜色。
If preStatus = common.DB_RECORD_STATUS_DELETE Then
Set a = Me.ListView1.ListItems.add(, , "1")
For t = 1 To 9
Me.ListView1.ListItems(row - 1).ListSubItems.Item(t).ForeColor = vbRed '红色 ‘改变某格字体颜色
Next
End If