如何在对象内部使用变量for for循环?
e.g。 :
启用所有复选框,用于
Private Function AllEnabled(ByVal b As Boolean)
Dim i As Integer
For i = 0 To 15
CheckBox(i).enabled = b
Next
End Function
抱歉小说话,&在此先感谢
答案 0 :(得分: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