主题：为什么不能给菜单里的标签组件赋值？

Dim lb As RibbonMenu.Lable
lb= RibbonTabs("导航").Groups("登录信息").Items("当前用户")

lb.text="当前时间:" & Date.Today()

目的是在功能区中用标签显示当前的时间。

可是总是出错，不是说没有找到“导航”功能区就是说没有找到“登录信息”功能组，不知道怎么回事？

你切换成系统菜单了？只要切换到用户菜单才行。

同时，你的名称必须写对。

这样啊，我再试试

谢谢红袍老师，问题解决了。不过还有一个问题：在事件中怎么判断当前的菜单是系统菜单还是用户自定义菜单呢？

判断当前菜单

Foxtable提供了一个系统变量SystemMenu，此变量为逻辑型，如果当前菜单为系统菜单，则返回True，如果当前菜单为自定义菜单，则返回False。