不是所有的菜单项都有text属性，这个到帮助看看每个菜单的属性，然后区分一下：http://www.foxtable.com/webhelp/topics/2034.htm
比如：
For Each itm As RibbonMenu.RibbonItem In grp.Items '遍历功能组里面的所有控件
Dim dr As DataRow = dt.addnew() '定义新加行
dr("类型") = "功能区"
dr("功能区") = rtb.name
dr("功能组") = grp.name
dr("菜单按钮") = itm.name
If Typeof itm Is RibbonMenu.DatePicker orelse Typeof itm Is RibbonMenu.NumericBox orelse ...... Then
dr("菜单标题") = itm.Label
elseIf Typeof itm Is RibbonMenu.xxx
....
else
dr("菜单标题") = itm.Text '出问题的就是这个地方，想获取菜单的标题来着
endif
dr("菜单类型") = itm.Gettype.name
dr.save()
Next
加好友 
发短信
Post By：2022/2/18 9:25:00 [显示全部帖子]
