listview塥行颜色问题.

Question

listview塥行颜色问题.如何根据条件设置每行数据颜色.
PICBG的例子看了很多.可为什么我的LISTVIEW里没有这个属性?那位高人知道.谢谢!

Answer 1

LISTVIEW当然没有这个属性，这时用其他方法实现的
   '--------------------------
  ' 设置 ListView.View 属性。
  lvwDB.View = lvwReport
  ' 清除 ColumnHeaders 集合。
  lvwDB.ColumnHeaders.Clear
  lvwDB.FullRowSelect = True
  lvwDB.Checkboxes = True
 '-------------------------
  '图片样式
  '------------------------
  picBg.BackColor = lvwDB.BackColor
  picBg.ScaleMode = vbTwips
  picBg.BorderStyle = vbBSNone
  picBg.AutoRedraw = True
  picBg.Visible = False
  '---------------------------
  picBg.Width = lvwDB.Width
  picBg.Height = lvwDB.ListItems(1).Height * (lvwDB.ListItems.count)
  picBg.ScaleHeight = lvwDB.ListItems.count
  picBg.ScaleWidth = 1
  picBg.DrawWidth = 1
  picBg.Cls
  For i = 1 To lvwDB.ListItems.count
     If lvwDB.ListItems(i).Checked = True Then
       picBg.Line (0, i - 1)-(1, i), &H40C0&, BF  ' &HFF8080, BF
     End If
  Next
  lvwDB.Picture = picBg.Image

Answer 2

你这段代码也有picBg啊！我那没有这属性，你还这么用，我怎么能实现呢？
他们有这个属性的能用这代码的都是怎么设置出picBg属性的？我不懂，请细说。谢谢！