主题：如何获取窗口中所有控件的名称包括容器中的控件

For each c as object in e.form.controls

Next

不是foxtable设计的窗口，无法这样处理，需要写递归函数处理。类似嵌套n个循环，如

Dim frm = windows.Forms.Form.activeform
If frm IsNot Nothing Then
    MessageBox.Show(frm.text)
    For Each kj As object In frm.controls
        output.show(kj.name & " " & kj.Gettype.name)
        If kj.Gettype.name = "SplitContainer" OrElse kj.Gettype.name = "SplitterPanel" Then
            For Each kkj As object In kj.controls
                output.show(kkj.name & " " & kkj.Gettype.name)
                If kkj.Gettype.name = "SplitContainer" OrElse kkj.Gettype.name = "SplitterPanel" Then
                    For Each kkkj As object In kkj.controls
                        output.show(kkkj.name & " " & kkkj.Gettype.name)
                    Next
                End If
               
            Next
        End If
    Next
End If

http://www.foxtable.com/webhelp/scr/2416.htm