0

我如何在对象内使用变量 for 循环?

例如:

使用 for 启用所有复选框

    Private Function AllEnabled(ByVal b As Boolean)
    Dim i As Integer
    For i = 0 To 15
        CheckBox(i).enabled = b
    Next
End Function

对不起,少说话,并在此先感谢

4

1 回答 1

3

语法是经典的CheckBox(i)VB6。VB6 允许您直接在表单设计器中轻松创建控件数组。VB.NET 不共享相同的功能。您可以在代码中手动创建自己的复选框控件数组,但是在使用设计器时,必须为每个控件分配其自己的唯一名称。如果您按顺序命名它们,例如CheckBox1,CheckBox2等,那么您可以通过Form.Controls集合按名称在循环中访问它们:

For i As Integer = 0 to 15
    Dim c As CheckBox = CType(Me.Controls("CheckBox" & i.ToString), CheckBox)
    c.Enabled = b
Next
于 2013-01-30T02:39:18.377 回答