VB控件的问题（问题不难，解答有分）

Question

Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Item As ListItem    If ListView1.HitTest(X, Y) Is Nothing Then Exit Sub
    If Button = 1 Then
        Set Item = ListView1.HitTest(X, Y)
        i = Item.Index
        '这里改变所点图标内容（如：用图标pic2.bmp代替pic1.bmp）
        ListView!.SelectItem.Icon="pic2.bmp"      
Else
    '
    End If
End Sub

Answer 1

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)End Sub如果只是鼠标左键单击listview中的项目，用这个事件

Answer 2

tony_jian(神经质男主角)：
ListView!.SelectItem.Icon="pic2.bmp"这句话有笔误吧？
是不是应该为：
ListView1.SelectedItem.Icon="pic2.bmp"
可是这样也不行啊。我试了一下，有错误：35601        未发现元素
请问这是怎么回事儿？40Star(陪你去看--☆流星雨★)：
我的鼠标右键还有其他用途，itemclick这个事件不能满足我的要求。谢谢你的回复！另外：listview初始化时能改变图标的位置吗？

Answer 3

ListView1.SelectedItem.Icon=一数字它是ImageList中图像的索引