- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何列出所有窗口名称？如何获取窗口所有控件的名称？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186140)
-- 发布时间：2023/4/8 17:26:00
-- 如何列出所有窗口名称？如何获取窗口所有控件的名称？
想通过控件进行授权，列出所有窗口控件名称工作量很大
如何列出所有窗口名称？如何获取窗口所有控件的名称？
-- 发布时间：2023/4/8 17:32:00
--
如何列出所有窗口名称？这个搞定
还有，如何获取窗口所有控件的名称？
-- 发布时间：2023/4/8 17:37:00
--
在不打开窗口的情况下，如何获取窗口所有控件的名称？
-- 发布时间：2023/4/8 18:12:00
--
只有打开窗口，才能获取控件名称。
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85400
-- 发布时间：2023/4/10 15:41:00
--
此主题相关图片如下：qq截图20230410153746.png
-- 发布时间：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
想把选定的窗口按键加到键授权表里，但是没有反应的
-- 发布时间：2023/4/10 15:50:00
--
窗口不能是模式窗口。
其次上面代码只能遍历窗口第一层的控件，如果按钮是放到容器比如panel里的，要去遍历panel
-- 发布时间：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编辑过]
-- 发布时间：2023/4/10 17:11:00
--
现在我设的授权：
1、按人员设置，又按组设置
2、授权表包括列和行，还有窗口按键授权
3、目前我录入都是主子关联式的模式窗口、还有一部份产主窗的形式
现在卡在窗口的按键上
老师有什么好的建议
-- 发布时间：2023/4/10 17:20:00
--
此主题相关图片如下：qq截图20230410171541.png
1、人员方面分到个人和级
2、表分列和行
3、控制分窗口和按键
现在只有想办法把按键怎样全列出来