如何用api改变listview控件的某一行的颜色？

[yvone]

我想实现如下功能：
form中有一个listview控件，一个button控件。listview的fullrowselect属性为true。点击button控件，则listview的指定行的显示效果变成被选中时的样子（整行均变为蓝色）。

在网上搜了一下，发现可能要用api。但是我对listview控件的消息一点都不熟，希望各位能够给予指点，谢谢！

[yvone]

果然很灵，谢谢了！

[rainstormmaster]

不用api就可实现：

Private Sub Command1_Click()
Dim selectitennum As Long
selectitennum = 30'假设要选定第30行
'下面几句是关键
Me.ListView1.ListItems(selectitennum).Selected = True
Me.ListView1.SetFocus
Me.ListView1.ListItems(selectitennum).EnsureVisible

End Sub

Private Sub Form_Load()
Me.ListView1.ColumnHeaders.Add , , "test1"
Me.ListView1.ColumnHeaders.Add , , "test2"
Me.ListView1.ColumnHeaders.Add , , "test3"
Me.ListView1.View = lvwReport
Dim i As Long
Dim mitem As ListItem
Me.ListView1.FullRowSelect = True
'Me.ListView1.HideColumnHeaders = True
For i = 1 To 100
Set mitem = Me.ListView1.ListItems.Add(, , "line" + CStr(i) + " sub 1")
mitem.SubItems(1) = "line" + CStr(i) + " sub 2"
mitem.SubItems(2) = "line" + CStr(i) + " sub 3"
Next
End Sub