如何列出所有窗口名称？如何获取窗口所有控件的名称？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何列出所有窗口名称？如何获取窗口所有控件的名称？

共有2033人关注过本帖树形打印复制链接主题：如何列出所有窗口名称？如何获取窗口所有控件的名称？

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

如何列出所有窗口名称？如何获取窗口所有控件的名称？ 发帖心情

Post By：2023/4/8 17:26:00 [只看该作者]

想通过控件进行授权，列出所有窗口控件名称工作量很大

如何列出所有窗口名称？如何获取窗口所有控件的名称？

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2023/4/8 17:32:00 [只看该作者]

如何列出所有窗口名称？这个搞定

还有，如何获取窗口所有控件的名称？

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2023/4/8 17:37:00 [只看该作者]

在不打开窗口的情况下，如何获取窗口所有控件的名称？

有点蓝

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

加好友

发短信

等级：超级版主帖子：106548 积分：541905 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/8 18:12:00 [只看该作者]

只有打开窗口，才能获取控件名称。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85400

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2023/4/10 15:41:00 [只看该作者]

此主题相关图片如下：qq截图20230410153746.png

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2023/4/10 15:42:00 [只看该作者]

Dim str As String = e.Form.controls("combobox2").Text

Forms(str).Open

Dim sa As WinForm.Form = Forms(str)

For Each c As WinForm.Control In Forms(str).Controls

If TypeOf c Is WinForm.Button Then '判断控件是否是按钮

Dim nr As Row = Tables("键授权").AddNew()

nr("窗口") = str

nr("键名") = c.name

End If

Forms(str).Close

想把选定的窗口按键加到键授权表里，但是没有反应的

有点蓝

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

加好友

发短信

等级：超级版主帖子：106548 积分：541905 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/4/10 15:50:00 [只看该作者]

窗口不能是模式窗口。

其次上面代码只能遍历窗口第一层的控件，如果按钮是放到容器比如panel里的，要去遍历panel

cd_tdh

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

加好友

发短信

等级：狐精帖子：3070 积分：20531 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2023/4/10 15:59:00 [只看该作者]

给你个建议，代码能判断所有窗口名称和类型的，用目录树的方式把窗口列出来，点击目录树打开窗口，位置设置为-1000，-1000，让后就可以列出窗口的所有控件了，还有个问题就是按钮放panel里面的，需要去变量panel,授权肯定是根据不同的人授权不停的按钮是否可以使用。

然后做一个按钮，保存你勾选的功能，保存到授权表。使用时根据授权表的授权来判断。

比如这样，但是我这个没你的复杂，我只需要判断常用功能，不需要去判断表

此主题相关图片如下：qq截图20230410160035.jpg

Dim frm As WinForm.Form = Forms("报名管理")

frm.Open( - 1000, - 1000)

For Each c As WinForm.Control In frm.Controls

If TypeOf c Is WinForm.Button Then '判断控件是否是按钮

Dim nr As Row = Tables("功能导航").AddNew()

nr("窗口名称") = frm.Name

nr("功能名称") = c.name

End If

[此贴子已经被作者于2023/4/10 16:07:08编辑过]

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2023/4/10 17:11:00 [只看该作者]

现在我设的授权：

1、按人员设置，又按组设置

2、授权表包括列和行，还有窗口按键授权

3、目前我录入都是主子关联式的模式窗口、还有一部份产主窗的形式

现在卡在窗口的按键上

老师有什么好的建议

zhuxinhui

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

加好友

发短信

等级：八尾狐帖子：1820 积分：4970 威望：0 精华：0 注册：2017/11/8 17:37:00

Post By：2023/4/10 17:20:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20230410171541.png

1、人员方面分到个人和级
2、表分列和行

3、控制分窗口和按键

现在只有想办法把按键怎样全列出来

下一主题 >> << 上一主题

总数 24 1 2 3 下一页

主题：如何列出所有窗口名称？如何获取窗口所有控件的名称？