以下是引用y2287958在2014-11-24 12:26:00的发言:俺是伸手党,懒惰。
建议楼主再研究一下:能否将菜单中的“自动列表”(类似“分组统计历史列表”等)移到窗口?
'俺会做假的,给你玩玩
'测试系统菜单中的
'正常使用时,自己在功能区建一个列表项,修改一下b的路径
'这个只能提分组统计历史列表,提窗口列表还得加一层
Dim a As object = BaseMainForm.controls("C1Ribbon1")
Dim b As object = a.Tabs("Common").Groups("Statisic").Items("Statistic").Items("GroupTable").Items("GroupTableList")
If b.Tostring = "C1.Win.C1Ribbon.RibbonMenu"
b.DroppedDown = True
For Each c As object In b.Items
If c.Tostring = "C1.Win.C1Ribbon.RibbonButton" Then
Output.show(c.text)
End If
Next
b.DroppedDown = False
End If