VB右键选定listview控件中的某一行
作者:admin 日期:2012-06-02
ASP/Visual Basic代码
- Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
- If Button = 2 then
- ListView1.SelectedItem = ListView1.HitTest(x,y)
- End If
- End Sub
右键点击空白不弹出菜单
ASP/Visual Basic代码
- If ( Button = 2) and (not ListView1.SelectedItem is nothing) then
- popupmenu menu...
- end if
评论: 0 | 引用: 0 | 查看次数: 2539
发表评论
广告位