listview的问题，能者拿分!

Question

一个listview
选择任意行时，怎样才能改变所选择行的
默认蓝色选择条（注意：不是改变listview的背景），将其改为其他颜色。
请帮忙给出代码~
谢谢！~

Answer 1

Private Sub Form_Load()
    Dim itemx As ListItem
    With ListView1
        .ColumnHeaders.Add , , "序号"
        .ColumnHeaders.Add , , "文件路径及名称"
        .FullRowSelect = True
        .GridLines = True
        .HotTracking = True      '允许使用热跟踪
        .HoverSelection = True
        Set itemx = .ListItems.Add(, , "1")
        itemx.SubItems(1) = "c:\db.txt"
        Set itemx = .ListItems.Add(, , "2")
        itemx.SubItems(1) = "c:\1.bmp"
        .View = lvwReport
    End With
End Sub

Answer 2

关键在.HoverSelection = True

Answer 3

先谢谢楼上的。。
看来我没有说明白
我是想让listview中已选择项目中的蓝色选择条改为我自己想要的颜色
帮帮忙~

Answer 4

可能要Hook listview的消息才能做到了

Answer 5

属性-->颜色-->活动标题栏-->设为你需要的颜色就是了

Answer 6

顺便在问一下
怎么才能改变listview中滚动条的样式（就是换成我自己的图片之类的。。）