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


  共有4703人关注过本帖树形打印复制链接

主题：如何列出所有窗口名称？如何获取窗口所有控件的名称？
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：0 精华：0 注册：2017/11/8 17:37:00 		如何列出所有窗口名称？如何获取窗口所有控件的名称？  发帖心情 Post By：2023/4/8 17:26:00 [只看该作者]

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

如何列出所有窗口名称？如何获取窗口所有控件的名称？
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/4/8 17:32:00 [只看该作者]

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

还有，如何获取窗口所有控件的名称？
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/4/8 17:37:00 [只看该作者]

在不打开窗口的情况下，如何获取窗口所有控件的名称？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：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


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/4/10 15:41:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20230410153746.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：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
Next
Forms(str).Close

想把选定的窗口按键加到键授权表里，但是没有反应的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110790 积分：563882 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/10 15:50:00 [只看该作者]

窗口不能是模式窗口。

其次上面代码只能遍历窗口第一层的控件，如果按钮是放到容器比如panel里的，要去遍历panel
 回到顶部
帅哥哟，离线，有人找我吗？
cd_tdh
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3210 积分：21336 威望：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
Next
[此贴子已经被作者于2023/4/10 16:07:08编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：0 精华：0 注册：2017/11/8 17:37:00 		  发帖心情 Post By：2023/4/10 17:11:00 [只看该作者]

现在我设的授权：

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

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

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

现在卡在窗口的按键上

老师有什么好的建议
 回到顶部
帅哥哟，离线，有人找我吗？
zhuxinhui
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1995 积分：6338 威望：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 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询