VB.Net foreach 正在反向循环控件

Question

我有这个 vb.net 代码，我在其中使用 foreach 循环检查复选框

但问题是它从 Checkbox 19 开始到 1 但我想从 Checkbox1 开始到 19

Dim i = 0
For Each myControl As CheckBox In Me.Controls
    myControl.Text = Form1.DataGridView1.Columns(i).HeaderText
    myControl.Checked = My.Settings("HC" & i)
i+=1
Next

那么如何使用普通的 for 循环执行上述代码，我不确定如何使用普通的 for 循环遍历控件

---

所以这是新的工作代码

Option Strict On
Option Infer On



 For i= 1 To 19
        Dim myControl = DirectCast(Me.Controls("CheckBox" + i.ToString()), CheckBox)
        myControl.Text = Form1.DataGridView1.Columns(i).HeaderText
        MsgBox(i)
        myControl.Checked = CBool(My.Settings("HC" & i))
    Next

Answer 1

使用普通的 For 循环，您需要手动构造复选框名称:

For i = 1 To 19
    Dim myControl = DirectCast(Me.Controls("checkbox" + i.ToString()), CheckBox)
    ... ' do something with myControl
Next

这使用了 ControlCollection indexer按名称访问控件，然后将控件转换为 CheckBox，以便为 myControl 变量推断出正确的类型。

(显然，代码示例假定Option Strict On 和Option Infer On。)