老师早上好,有两个问题希望老师解惑
1. 通过数据表动态生成菜单后,自己写得内部函数无效了?这个是新版本的特性吗?还是我编程出问题了?
2.想通过代码的方式清除原来菜单的功能区,快速访问栏 和配置栏 代码如下
'清除功能区
For Each rb As RibbonMenu.Tab In ribbontabs
RibbonTabs.remove(rb.name)
Next
'这个多点几下,能到到目的
'清除快速访问栏
For Each itm As object In QAT.Items
QAT.items.Remove(itm.name)
Next
'这个只执行部分清除,还剩下几个清除不掉
For Each cb As object In configbar.Items
configbar.Items.Remove(cb.name)
Next
'这个跟清除快速访问栏一样的问题
参考了一些帖子,有这三个命令进行清除,可是一旦在命令窗口执行的话会无限循环.感觉最好不要用了
RibbonTabs.Clear
QAT.Items.Clear
ConfigBar.Items.Clear