vb.net - 用一行代码加载组合框？

Question

我的表单上有大约 15 个组合框，所有组合框都加载了从表中提取的相同信息(约 150 个条目)。目前我正在从表中获取信息，然后遍历条目并将它们添加到每个文本框。我想知道是否有更有效的方法来加载这些组合框，然后必须将表条目单独添加到每个组合框，必须在 For 循环中列出 15 行代码。

我没有发现任何性能问题，但我想我最好还是使用最有效的方法，而不是坚持使用有效的方法。 :)

Answer 1

您可以创建一个组合框列表，然后循环遍历它们。例如:

Dim cbos() As ComboBox = {ComboBox1, ComboBox2, ComboBox3}
For Each cbo As ComboBox In cbos
    ' Load cbo from table
Next

或者，如果它们的命名一致，您可以按名称找到组合框:

For i As Integer = 1 to 15
    Dim cbo As ComboBox = DirectCast(Controls("ComboBox" & i.ToString())), ComboBox)
    ' Load cbo from table
Next