快捷菜单中如何对子菜单进行控制
当前listview如果没有选择有效行 则该子菜单不允许被点击
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:捕获.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-12/20201272082413115.png)
当快捷菜单中的是标准项目的时候 则可以通过点击事件代码进行控制
Dim lvw As WinForm.ListView = Forms("党建工作").Controls("ListView1")
Dim vr As WinForm.ListViewRow = lvw.Current '获取ListView的当前行
If vr IsNot Nothing Then '如果不存在当前行,也就是内有选定任何一行
Vars("姓名") = vr.Text
Forms("党员信息").open
Else
MessageBox.Show("请在图标上单击【人员查看】查看信息!","温馨提示")
End If
有没有代码实现对快捷菜单中的子菜单进行控制 并且延申到子菜单下的二级菜单也可以控制呢?