- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎样动态加入右键菜单 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=196198)
-- 发布时间：2025/4/8 8:41:00
-- 怎样动态加入右键菜单
此主题相关图片如下：1111.jpg
此主题相关图片如下：222.jpg
我在项目总表里建立了一个“项目总表菜单”， 现在，它在表格里是可以右击显示出来的。它下边有一些子级菜单。现在我想在“项目总表菜单”下增加一个名称为“添加任务”的子菜单。
然后在“添加任务”菜单下边，动态加入，基本信息表里的，任务类别1，我是通过SQLGetComboListString这样的代码把任务类别1的列表得到的。
然后，在任务类别1下 增加 任务类别 2的子菜单。
就这样的2级菜单，怎么样去动态生成？
-- 发布时间：2025/4/8 9:00:00
--
-- 发布时间：2025/4/8 10:43:00
--
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("项目总表菜单")
Dim a As New C1.Win.C1Command.C1Command
a.name = "添加任务"
a.text = "添加任务"
Dim b As New C1.Win.C1Command.C1CommandLink(a)
Dim c As New RibbonMenu.ContextCommand(b)
If mnu1.items.Contains("添加任务") = False Then
mnu1.items.add(c)
End If
Dim sts As String = DataTables("基本信息").GetComboListString("任务类别1")
Dim mnu2 As RibbonMenu.ContextMenu = ContextMenus("添加任务")
For Each st As String In sts.Split("|")
Dim d As New C1.Win.C1Command.C1Command
d.name = st
d.text = st
Dim g As New C1.Win.C1Command.C1CommandLink(d)
Dim f As New RibbonMenu.ContextCommand(g)
\' mnu.Items.Add(st)
If mnu2.items.Contains(st) = False Then
\' mnu2 .items.add(st)
mnu2.items.add(mnu1.items(st))
End If
Next
此主题相关图片如下：333.jpg
此主题相关图片如下：444.jpg
-- 发布时间：2025/4/8 11:12:00
--
Dim mnu1 As RibbonMenu.ContextMenu = ContextMenus("项目总表菜单")
Dim a As New C1.Win.C1Command.C1Command
a.name = "添加任务"
a.text = "添加任务"
Dim b As New C1.Win.C1Command.C1CommandLink(a)
Dim c As New RibbonMenu.ContextCommand(b)
If mnu1.items.Contains("添加任务") = False Then
mnu1.items.add(c)
End If
Dim sts As String = DataTables("基本信息").GetComboListString("任务类别1")
For Each st As String In sts.Split("|")
Dim d As New C1.Win.C1Command.C1Command
d.name = st
d.text = st
Dim g As New C1.Win.C1Command.C1CommandLink(d)
Dim f As New RibbonMenu.ContextCommand(g)
\' mnu.Items.Add(st)
If c.items.Contains(st) = False Then
\' mnu2 .items.add(st)
c.items.add(mnu1.items(st))
End If
Next
-- 发布时间：2025/4/8 11:49:00
--
此主题相关图片如下：555.jpg
-- 发布时间：2025/4/8 13:36:00
--
试了一下，只能添加到根菜单，也就是"项目总表菜单"里面，不能再添加子菜单。
或者换种用法，先添加所有菜单，然后根据需要移动到其它菜单里：http://www.foxtable.com/webhelp/topics/2233.htm