主题：求助，快捷菜单子菜单的Item属性及延迟的问题

 ContextMenus("目录树").Items("增加").Items("下级节点").Enable =False
属性无效，我要让"下级节点"这个按钮不可用要怎么写？好像FX不支持子菜单的按钮的不可用


另外我最想要的是根据条件隐藏掉，但是延迟很严重啊
If e.Button = MouseButtons.Right Then
    Dim trv As WinForm.TreeView = e.sender
    If trv.nodes.Count =0
        ContextMenus("目录树").Show(e.sender,e.x,e.y)
        ContextMenus("目录树").Items("重命名").Visibled =False
        ContextMenus("目录树").Items("增加").Items("下级节点").Visible =False
        ContextMenus("目录树").Items("增加").Items("同级节点").Visible =False
        ContextMenus("目录树").Items("删除").Visible =False
        ContextMenus("目录树").Items("上移").Visible =False
        ContextMenus("目录树").Items("下移").Visible =False
        ContextMenus("目录树").Items("左移").Visible =False
        ContextMenus("目录树").Items("右移").Visible =False
    Else
        If trv.SelectedNode IsNot Nothing Then
            ContextMenus("目录树").Show(e.sender,e.x,e.y)
            ContextMenus("目录树").Items("重命名").Visible =True
            ContextMenus("目录树").Items("增加").Items("下级节点").Visible =True
            ContextMenus("目录树").Items("增加").Items("同级节点").Visible =True
            ContextMenus("目录树").Items("删除").Visible =True
            ContextMenus("目录树").Items("上移").Visible =True
            ContextMenus("目录树").Items("下移").Visible =True
            ContextMenus("目录树").Items("左移").Visible =True
            ContextMenus("目录树").Items("右移").Visible =True
        End If
    End If
End If

 晕了，咋回事，刚刚测试visible的属性还能用，现在又不能用了

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,用户管理,组织结构树,MouseDown
详细错误信息：
未找到类型“ContextCommand”的公共成员“Visibled”。

代码没执行到吧,禁用应该是可以的

 执行到了，都跳错了，说没这个属性

ContextMenus("目录树").Items("重命名").Visibled =False


现在连这句都跳错了，不知道咋回事

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,用户管理,组织结构树,MouseDown
详细错误信息：
未找到类型“ContextCommand”的公共成员“Visibled”。


明明有这个属性啊

 If e.Button = MouseButtons.Right Then
    Dim trv As WinForm.TreeView = e.sender
    Dim cmm As RibbonMenu.ContextCommand = ContextMenus("目录树")("重命名")
    Dim xj As RibbonMenu.ContextCommand = ContextMenus("目录树")("增加")("下级节点")
    Dim tj As RibbonMenu.ContextCommand = ContextMenus("目录树")("增加")("同级节点")
    Dim sc As RibbonMenu.ContextCommand = ContextMenus("目录树")("删除")
    Dim sy As RibbonMenu.ContextCommand = ContextMenus("目录树")("上移")
    Dim xy As RibbonMenu.ContextCommand = ContextMenus("目录树")("下移")
    Dim zy As RibbonMenu.ContextCommand = ContextMenus("目录树")("左移")
    Dim yy As RibbonMenu.ContextCommand = ContextMenus("目录树")("右移")
    If trv.nodes.Count =0
        ContextMenus("目录树").Show(e.sender,e.x,e.y)
        cmm.Visible = False
        xj.Visible = False
        tj.Visible=False
        sc.Visible = False
        sy.visible = False
        xy.visible = False
        zy.visible = False
        yy.visible = False
    Else
        If trv.SelectedNode IsNot Nothing Then
            ContextMenus("目录树").Show(e.sender,e.x,e.y)
            cmm.Visible = True
            xj.Visible = True
            tj.Visible=True
            sc.Visible = True
            sy.visible = True
            xy.visible = True
            zy.visible = True
            yy.visible = True
        End If
    End If
End If




==========================很奇怪，如果定义的话就不报错，直接调用就报错？这是BUG吗？

 你的单词就拼写错误了

 

Visibled

 

------------

 

Visible

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:contendemo.foxdb

谢谢，刚才自己也发现了，但是延迟的问题还是没解决，我做了个DEMO，可以看到判断不同条件的时候，菜单的显示有明显的延迟