Question

我有这段代码：

Dim val1,val2,val3,val4,val5, ... ,val20 As String

If Combobox1.SelectedIndex = 0 Then
   val1=">"
else
   val1="<"
end if

If Combobox2.SelectedIndex = 0 Then
   val2=">"
else
  val2="<"
end if

我该如何循环呢？有20个组合框。请帮忙！感谢

Answer 1

要遍历表单上的控件，请使用Me.Controls。要检查控件的类型，请使用Control.GetType.Name。

问题是像val1,val2,val3...etc这样的单独变量不能在循环中轻松使用，所以我建议将它们更改为列表。

Dim val As New List(Of String)

For Each MyControl In Me.Controls
    If MyControl.GetType.Name = "ComboBox" Then
        Dim MyComboBox As ComboBox = CType(MyControl, ComboBox)
        If MyComboBox.SelectedIndex = 0 Then
            val.Add(">")
        Else
            val.Add("<")
        end if
    End If
Next

Answer 2

所以，这里有一些循环序列。免责声明 - 代码未经过测试，可能是错误，但逻辑布局应该是正确的

{@link ...}

Loop Combobox和变量里面

2 个答案: