If e.Button = MouseButtons.Right Then '假定按下的是鼠标右键Dim lvw As WinForm.ListView = Forms("党建工作").Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
If vr IsNot Nothing Then '如果不存在当前行,也就是内有选定任何一行
ContextMenus("快捷菜单名").items("子菜单").Visible = false
Else
ContextMenus("快捷菜单名").items("子菜单").Visible = true
End If
ContextMenus("快捷菜单名").Show(e.Sender,e.x,e.y) '则在鼠标位置显示快捷菜单
End If