7452
社区成员
- 主页
listview中怎么使用右键菜单？在线等！
listview只有click和mousedown这两种方法
我现在想实现右键菜单功能，具体就是先选中某一列，然后点击右键出现菜单显示此列可以进行的操作，如删除等.
不知该怎么做？盼指点！！
也可加qq123567759
我现在想实现右键菜单功能，具体就是先选中某一列，然后点击右键出现菜单显示此列可以进行的操作，如删除等.
不知该怎么做？盼指点！！
也可加qq123567759
...全文
请发表友善的回复…
发表回复
clear_zero 2006-04-04
在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
希望有帮助
不过我没明白,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
希望有帮助
fishmans 2006-04-03
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方法
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方法
paulxj 2006-04-03
错了
是先选中某一hang，然后点击右键出现菜单显示此hang可以进行的操作，如删除等.
是先选中某一hang，然后点击右键出现菜单显示此hang可以进行的操作，如删除等.