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

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

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

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

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

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

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

现在我设的授权：

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

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

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

现在卡在窗口的按键上

老师有什么好的建议

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

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

3、控制分窗口和按键

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

 

现在可以把本窗口的按钮列出来，并加到表上，测试过模式窗口也可以加进去

但是怎样通过其他窗口打开模式窗口，再直接把打开窗口按钮加开表里去呢？？

 

Dim sa As WinForm.Form = Forms(e.Node.Name)
sa.Open()
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView4")
Dim nd2 As WinForm.TreeNode
nd2 = trv2.Nodes(e.Node.Name)
For Each c2 As Winform.Control In Forms(e.Node.Name).Controls
    If TypeOf c2 Is winform.button Then
        nd2.nodes(e.Node.Name).nodes.add(Forms(e.Node.Name).Controls(c2.name).text)
    End If
Next

 

'For Each c As WinForm.Control In sa.Controls
'    If TypeOf c Is WinForm.Button Then '判断控件是否是按钮 
'        Dim nr As Row = Tables("键授权").AddNew()
'        nr("窗口") = sa.Name
'        nr("键名") = c.name
'    End If
'Next
'sa.Close()

 

这些代码放在本窗口是可以的，放在其他窗口就不行了

是否可以用代码：在打开的窗口增加个按钮，通过按钮来执行全局代码或函数代码呢？？？