关于ListView的问题

[Jinhao]

1，在程序中使用ListView时，ListView会自动选中第一项，如何不让他自动选中第一项？
2，当单击ListView空白处的时候弹出一个菜单，单击里面的Item时，弹出另一个菜单？

[zyl910]

2.在“MouseDown”事件中 先用“HitTest”判断鼠标是否在某个项目上，在进行处理

[playyuer]

1. Set ListView1.SelectedItem = Nothing


参阅
TreeView 和 ListView 综合实例
http://www.triaton.com.cn/cgi-bin/lb5k/topic.cgi?forum=4&topic=31&show=50

[thorkhan]

第一個問題
Dim itmx As ListItem

With ListView1
Set itmx = .ListItems.Add(, , "aaa1")
itmx.SubItems(1) = "aaa2"
Set itmx = .ListItems.Add(, , "bbb1")
itmx.SubItems(1) = "bbb2"
Set .SelectedItem = .ListItems(2)
End With

2 if listview1.selectitem is nothing then
' 空白
popupmenu menu1
else
' 單擊item
popupmenu menu2
end if

[thorkhan]

改正﹐第二個問題
Private Sub ListView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
With ListView1
If .HitTest(x, y) Is Nothing Then
' 空白
PopupMenu menu1
Else
' 單擊item
PopupMenu menu2
End If
End With
End If
End Sub