以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何在快捷菜单中用代码增加一个标准项目?哪位老师帮帮忙,多谢!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187520)

--  作者:pyh6918
--  发布时间:2023/7/23 18:24:00
--  如何在快捷菜单中用代码增加一个标准项目?哪位老师帮帮忙,多谢!
Dim gg As RibbonMenu.ContextCommandMenu = ContextMenus("志愿调整至").Items("志愿调整至")
For i As Integer = 1 To 3
    Dim b As RibbonMenu.ContextCommand  
    b.Text = "志愿" & i 
    gg.Items.Add(b) 
Next

右键调用时,提示“未将对象应用到实例”

--  作者:pyh6918
--  发布时间:2023/7/23 21:08:00
--  
增加标准项目已经搞定!

再问一下如何删除子菜单下的全部标准项目?

--  作者:有点蓝
--  发布时间:2023/7/24 9:46:00
--  
目前没有提供删除功能
--  作者:pyh6918
--  发布时间:2023/7/25 21:54:00
--  
[此贴子已经被作者于2023/7/25 22:18:27编辑过]