VB.Net：循环遍历所有表单项，包括 CommonDialogs

Question

我正在翻译我的 VB.Net 应用程序，我需要循环遍历表单上的所有控件。使用诸如此类的递归函数效果

Public Sub TranslateControl(ByVal Ctrl As Control)
    For Each ChildCtrl As Control In Ctrl.Controls
        ChildCtrl.Text = Translate(ChildCtrl.Text)

        If TypeOf ChildCtrl Is Label Then
            CType(ChildCtrl, Label).Tag = Translate(CType(ChildCtrl, Label).Tag)
        End If

        TranslateControl(ChildCtrl)
    Next
End Sub

很好，但它不包括 CommonDialog 对象，例如 FolderBrowser 对象。我如何访问这些对象？我尝试了这个

    For Each ChildDialog As CommonDialog In Ctrl.Controls
        ChildDialog.Tag = Translate(ChildDialog.Tag)
    Next

，但显然存在继承问题，因为 CommonDialog 对象不是控件。

有没有办法让我真正循环浏览表单上显示的所有项目？

多谢！

财务规划师

Answer 1

不，它们是组件，而不是控件。他们的代码实际上存在于 shell 中，由 Microsoft 使用非托管 C/C++ 编写。关于它们唯一需要管理的是一个小包装器，它进行必要的 API 调用来显示它们并返回它们的结果。例如打开文件对话框。

您遇到的第一个问题是当显示这样的对话框时运行您的代码。它是一个对话框，在 ShowDialog() 调用之后，控制不会返回到您的程序，直到用户关闭它。通过相当多的技巧，这是可能的。检查我的代码此线程 的方法。如前所述，该代码适用于任何 shell 对话框以及 MessageBox。

这将为您提供对话框的窗口句柄。接下来，您必须迭代对话框的子窗口。您可以通过 EnumChildWindows API 调用来完成此操作。这为您提供了每个子项的窗口句柄，然后您可以使用 SendMessage() 对子项执行某些操作。无论是什么，您都没有在问题中具体说明。

Answer 2

 Friend Sub resetFormControls(zForm As Form)

尝试使用子例程将所有控件重置回未使用状态：空白文本框、未选中的复选框和单选按钮等。

        For Each zCntl As Control In zForm.Controls
            If zCntl.HasChildren Then
                For Each zChildCntl As Control In zCntl.Controls
                    If zChildCntl.GetType Is GetType(CheckBox) Then
                        CType(zChildCntl, CheckBox).Checked = False
                    End If

                    If zChildCntl.GetType Is GetType(TextBox) Then CType(zChildCntl, TextBox).Text = ""
                    If zChildCntl.GetType Is GetType(TextBox) Then CType(zChildCntl, TextBox).BackColor = Color.White
                    If zChildCntl.GetType Is GetType(RichTextBox) Then CType(zChildCntl, RichTextBox).Text = ""
                    If zChildCntl.GetType Is GetType(RichTextBox) Then CType(zChildCntl, RichTextBox).BackColor = Color.White
                    If zChildCntl.GetType Is GetType(RadioButton) Then CType(zChildCntl, RadioButton).Checked = False

                Next
            End If
            If zCntl.GetType Is GetType(CheckBox) Then CType(zCntl, CheckBox).Checked = False
            If zCntl.GetType Is GetType(TextBox) Then CType(zCntl, TextBox).Text = ""
            If zCntl.GetType Is GetType(TextBox) Then CType(zCntl, TextBox).BackColor = Color.White
            If zCntl.GetType Is GetType(RichTextBox) Then CType(zCntl, RichTextBox).Text = ""
            If zCntl.GetType Is GetType(RichTextBox) Then CType(zCntl, RichTextBox).BackColor = Color.White
            If zCntl.GetType Is GetType(RadioButton) Then CType(zCntl, RadioButton).Checked = False
            If zCntl.GetType Is GetType(DateTimePicker) Then CType(zCntl, DateTimePicker).Text = Now.Date
            If zCntl.GetType Is GetType(ComboBox) Then CType(zCntl, ComboBox).SelectedIndex = 0

        Next
        Application.DoEvents()

    Catch ex As Exception

    End Try
End Sub