- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [分享] 获取窗口集合到目录树 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60362)
-- 发布时间：2014/11/23 18:48:00
-- [分享] 获取窗口集合到目录树
其实就是将窗口设计器中的目录树搬过来
此主题相关图片如下：jdfw.gif
以下内容只有回复后才可以浏览
[此贴子已经被作者于2014-11-23 18:55:36编辑过]
-- 发布时间：2014/11/23 19:00:00
--
顶顶
-- 发布时间：2014/11/23 22:40:00
--
学习
-- 发布时间：2014/11/24 11:22:00
--
来了
-- 发布时间：2014/11/24 12:15:00
--
好
-- 发布时间：2014/11/24 12:26:00
--
俺是伸手党，懒惰。
建议楼主再研究一下：能否将菜单中的“自动列表”（类似“分组统计历史列表”等）移到窗口？
-- 发布时间：2014/11/24 15:16:00
--
以下是引用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
-- 发布时间：2014/11/24 17:32:00
--
xueci
-- 发布时间：2014/11/27 20:35:00
--
学习
-- 发布时间：2014/12/5 20:34:00
-- 回复：（游）[分享] 获取窗口集合到目录树
学习学习