[分享] 获取窗口集合到目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享] 获取窗口集合到目录树

共有26021人关注过本帖树形打印复制链接主题：[分享] 获取窗口集合到目录树

游

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00

[分享] 获取窗口集合到目录树 发帖心情

Post By：2014/11/23 18:48:00 [只看该作者]

其实就是将窗口设计器中的目录树搬过来

图片点击可在新窗口打开查看此主题相关图片如下：jdfw.gif

以下内容只有回复后才可以浏览

[此贴子已经被作者于2014-11-23 18:55:36编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/11/23 19:00:00 [只看该作者]

顶顶

pcxjxjhkw

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1791 积分：12764 威望：0 精华：1 注册：2013/7/18 15:51:00

Post By：2014/11/23 22:40:00 [只看该作者]

学习

blackzhu

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐仙帖子：9879 积分：57634 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2014/11/24 11:22:00 [只看该作者]

来了

y2287958

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4760 积分：34608 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/11/24 12:15:00 [只看该作者]

好

y2287958

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：4760 积分：34608 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2014/11/24 12:26:00 [只看该作者]

俺是伸手党，懒惰。

建议楼主再研究一下：能否将菜单中的“自动列表”（类似“分组统计历史列表”等）移到窗口？

逛逛

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：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