访问所有相似的控件

 

引言

这篇文章帮助访问表单上的所有控件（包括基于 Windows 和基于 Web 的控件）。下面的代码可以用来清除所有文本框，或者重置所有下拉列表，或者可以根据需要修改此代码。

使用代码

这篇文章提供了访问表单上所有控件的想法。这个简单的代码片段可以根据需要修改，以最大限度地利用它。在 for 循环中，它将选择表单上的所有控件。它将比较控件是否为文本框类型，如果是，则将其清除；如果控件是下拉列表，则将其重置。类似地，可以匹配任何控件并采取相应的步骤。

 

Dim __textBoxType As Type = TextBox1.GetType
Dim __DropDown As Type= DropDownList1.GetType

For Each __control As Control In Me.Controls
   If __control.GetType() Is __textBoxType Then
       CType(__control, TextBox).Clear()
   End If 
   If __control.GetType() Is __DropDown Then 
        CType(__control, TextBox).SelectedItem=0 
   End If
Next

 

上面我提供了两种选择。上面的代码将清除所有文本框，并将所有下拉列表的选定索引设置为 0。此代码可用于重置数据输入表单，其中可能需要清除 15 个文本框。这些只是简单的实现。您可以根据您的需求使用此代码。例如，如果您在运行时创建了一些控件，并且需要清除它们。因此，不必为每个控件编写代码，只需循环遍历并完成工作。在 for 循环中，它将选择表单控件数组中的每个控件。如果只想修改面板中的一组控件，则可以仅对面板中的所有控件运行上面的循环。

关注点

只需编写几行代码，就可以为相同类型的控件设置任何类似的属性。这将肯定减少代码行数，并且最重要的是，它将是优化的代码。

结论

因此，我们可以说上面的代码可以在您想要对所有相同类型的控件执行类似功能时使用。