如何向控件数组中批量添加控件？

[mockingbird9921]

定义一个CheckBox的数组后，有Name 为Light1--Light50的CheckBox控件，如何批量向数组中添加？多谢 就是想象下面这样循环添加

 Dim checkbox(49) As CheckBox
  For i = 1 To 50
            checkbox(i - 1) = "Light" & i
        Next

[xdashewan]

你需要先new出CheckBox，然后设置name为"Light" & i，然后再放入数组

[mockingbird9921]

引用 1 楼 xdashewan 的回复:

你需要先new出CheckBox，然后设置name为"Light" & i，然后再放入数组

我已经在上位机面板上放了CheckBox，并命名成了Light1，Light2……，这样该怎么办？

[rmini]

不太熟悉，继续关注

[FainSheeg]

 Dim checkbox(49) As CheckBox
  For i = 1 To 50
            checkbox(i - 1) = Controls.Find("Light" & i,True)(0)
  Next

[FainSheeg]

checkbox(i - 1).Checked = True 不行？

[mockingbird9921]

引用 4 楼 yangliu0512 的回复:

 Dim checkbox(49) As CheckBox
  For i = 1 To 50
            checkbox(i - 1) = Controls.Find("Light" & i,True)(0)
  Next

谢谢大神

[mockingbird9921]

引用 4 楼 yangliu0512 的回复:

 Dim checkbox(49) As CheckBox
  For i = 1 To 50
            checkbox(i - 1) = Controls.Find("Light" & i,True)(0)
  Next

你好，现在还有一个问题。就是我添加到数组里只可以对CheckBox的属性进行改变，无法改其是否checked，有什么办法能够改变吗？或者直接对light&i的checked进行改变