既然你可以改变某个Item的颜色,那么用一个循环不就可以实现了么?
似乎这个办法是最好的办法了。
Private Sub ListView1_Click()
ListView1.SelectedItem.ForeColor = vbRed
For i = 1 To ListView1.ColumnHeaders.Count - 1
ListView1.SelectedItem.ListSubItems(i).ForeColor = vbRed
Next
End Sub
双击取得行号.SelectedItem.Index属性,使用代码如下:
Private Sub ListView1_DblClick()
MsgBox ListView1.SelectedItem.Index
End Sub