在listview的属性中设置整行选择,然后在mousedown里面
不过我没明白,listview里面有mouseup事件的阿,在mouseup里面 set item=lv.seleteditem就好了
在mousedown里面就是下面这个了
Dim item As ListItem
Set item = ListView1.HitTest(x, y)
If Not item Is Nothing And Button = 2 Then
PopupMenu aaa
End If
end sub
希望有帮助
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim item As ListItem
Set item = ListView1.HitTest(x, y)
If Not item Is Nothing And Button = 2 Then
PopupMenu aaa
End If
end sub
点第一列有效
删除用listview1.ListItems.Remove方法