Question

更改ListView控件列首的背景色

更改ListView控件列首的背景色

在VB6.0里面，先引用一下部件Microsoft Windows Common Controls (版本随便)然后画一个Listview
当然，里面没有设置这个的属性

整了好几天了，就是弄不出来，不过总算找到了这个资料，很N的人写的
不过很可惜是C++，请哪位仁兄弄成VB的

把这个东西写好了，能用了，发到我邮箱，非常感谢！

C++的资料：
http://topic.csdn.net/t/20020831/15/985645.html

Answer 1

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

本代码属于引用他人的我还没有试过但我知道能用你可以试着用下看行不再说