Question

VB listbox背景色如何设定？

如何对listbox中的某些项目的底色（背景色）进行设置？例如一个list11234我想把2，3的背景色改为淡绿色。

Answer 1

先设置list的MultiSelect属性= 1
在最下面加一个空行 也选中
list.additem ""
然后选择空行
List1.Selected(i) = True
那么虚线就没了 因为LIST的列表项总是比实际的多一个空行
所以那个效果就不见了

Answer 2

Option Explicit
Private WithEvents bc As PictureBox
Private Sub Command1_Click()
Call SetLineBackColor(ListView1, 3, &HE0E0E0)
End Sub
Public Sub SetLineBackColor(Lv As ListView, LvLineCount As Long, LVBC As Long)'分别是listview的名称,第几行,背景色
Lv.Parent.ScaleMode = vbTwips
If bc Is Nothing Then
Set bc = Controls.Add("VB.PictureBox", "picbg")
End If
With bc
.Visible = True
.BackColor = Lv.BackColor
.ScaleMode = vbTwips
.BorderStyle = vbBSNone
.AutoRedraw = True
.Visible = False
.Width = Lv.Width
.Height = Lv.ListItems(1).Height * (LvLineCount + 1)
.ScaleHeight = LvLineCount + 1
.ScaleWidth = 1
.DrawWidth = 1
End With
bc.Line (0, LvLineCount - 1)-(1, LvLineCount), LVBC, BF
Lv.Picture = bc.Image
End Sub