- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]快捷菜单问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=157431)
-- 发布时间：2020/10/15 19:19:00
-- [求助]快捷菜单问题
我想透过代码方式，控制快捷菜单的 item 启用或禁用，语法如下：
Dim t As String = Forms("窗口1").Controls("MOD").Text
Dim mnu As RibbonMenu.ContextMenu
mnu = ContextMenus("amd")
Select Case t
Case "adder"
mnu(t).Enabled = False
Case "modify"
mnu(t).Enabled = False
Case "del"
mnu(t).Enabled = False
End Select
e.ContextMenu = mnu
可是当我把窗口的按钮都点过一遍，却发现所有 item 都不能用了！
请问老师，我的语法哪里有误呢？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test.foxdb |
-- 发布时间：2020/10/15 20:50:00
--
项目设置了授权，无法打开
Dim t As String = Forms("窗口1").Controls("MOD").Text
Dim mnu As RibbonMenu.ContextMenu
mnu = ContextMenus("amd")
For Each i As RibbonMenu.ContextCommand In mnu.Items
i.Enabled = true
Next
Select Case t
Case "adder"
mnu(t).Enabled = False
Case "modify"
mnu(t).Enabled = False
Case "del"
mnu(t).Enabled = False
End Select
e.ContextMenu = mnu
-- 发布时间：2020/10/15 21:17:00
--
老师，你提供的方法，是要在代码中，重置一次所有 item 的属性？
也就是说，原来的法，设置过的 item 属性，是会一直保留著？
-- 发布时间：2020/10/15 21:27:00
--
设置过的 item 属性，除非另外改变过，否则肯定是会一直保留的。难不成会自己变？