Private Sub SetListItemColor(lv As ListView, picBg As PictureBox) Dim i As Integer Dim mItem As ListItem picBg.BackColor = lv.BackColor lv.Parent.ScaleMode = vbTwips picBg.ScaleMode = vbTwips picBg.BorderStyle = vbBSNone picBg.AutoRedraw = True picBg.Visible = False picBg.Width = lv.Width picBg.Height = lv.ListItems(1).Height * (lv.ListItems.Count) picBg.ScaleHeight = lv.ListItems.Count picBg.ScaleWidth = 1 picBg.DrawWidth = 1 '----------------------------- 'custom.such as '------------------------------ For i = 1 To 33 Set mItem = lv.ListItems If mItem.Checked = False Then If i Mod 2 = 0 Then picBg.Line (0, i - 1)-(1, i), RGB(254, 209, 199), BF Else picBg.Line (0, i - 1)-(1, i), RGB(20, 54, 199), BF End If Else picBg.Line (0, i - 1)-(1, i), RGB(254, 200, 100), BF End If Next
用Spread可以实现你的要求。只要你写俩句代吗。
-----------------------------------------------------------
Spread是啥呀?我也想知道
lv.Picture = picBg.ImageEnd Sub