vb.net - 如何在 VB.net 中遍历/迭代窗体中的所有对象？

Question

我有一个 VB 类，其中一个方法接受表单数组。

对于数组中的每个表单，我需要它遍历所有对象，检查它们是否是特定类型(输入、标签、复选框等)并获取每个对象的属性。然后，我想将这些转储到以下格式的文本文件中:

Form1 | Label1 | "Enter your name"

“输入您的姓名”是表单对象的标题或文本。

我想这样做是为了方便应用程序的翻译。您对此有什么想法或想法吗？

Answer 1

以下代码将返回一个 IEnumerable(Of Control)，其中包含传入控件的所有子控件。它将递归地下降到树下并获得所有嵌套的控件。

Public Function GetAllControls(ByVal source as Control) As IEnumerable(Of Control)
  Dim seq = Enumerable.Empty(Of Control)
  For Each child in source.Controls 
    if child.Controls.Count > 0 Then
      seq = seq.Concat(GetAllControls(child))
    End If
  Next 
  Return seq
End Function