- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，快捷菜单子菜单的Item属性及延迟的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70268)
-- 发布时间：2015/6/18 10:23:00
-- 求助，快捷菜单子菜单的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
-- 发布时间：2015/6/18 10:28:00
--
晕了，咋回事，刚刚测试visible的属性还能用，现在又不能用了
-- 发布时间：2015/6/18 10:29:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,用户管理,组织结构树,MouseDown
详细错误信息：
未找到类型“ContextCommand”的公共成员“Visibled”。
-- 发布时间：2015/6/18 10:29:00
--
代码没执行到吧,禁用应该是可以的
-- 发布时间：2015/6/18 10:31:00
--
执行到了，都跳错了，说没这个属性
-- 发布时间：2015/6/18 10:32:00
--
ContextMenus("目录树").Items("重命名").Visibled =False
现在连这句都跳错了，不知道咋回事
-- 发布时间：2015/6/18 10:33:00
--
.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,用户管理,组织结构树,MouseDown
详细错误信息：
未找到类型“ContextCommand”的公共成员“Visibled”。
明明有这个属性啊
-- 发布时间：2015/6/18 10:55:00
--
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吗？
-- 发布时间：2015/6/18 11:05:00
--
你的单词就拼写错误了
Visibled
------------
Visible
-- 发布时间：2015/6/18 11:20:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:contendemo.foxdb |
谢谢，刚才自己也发现了，但是延迟的问题还是没解决，我做了个DEMO，可以看到判断不同条件的时候，菜单的显示有明显的延迟