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

4楼的连接里有递归的用法，仔细研究研究

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

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

 

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()

 

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

先把窗口改为独立窗口，处理完毕再改为模式窗口

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

改为独立窗口可以用代码改为吗？

 

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

这个窗口事件在哪打开的，找来找去都不见有的

 

用代码改变窗口类型查过是不行的

只有代码增加按钮，再使用全局事件了

选中窗口本身就看到了

不能