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

mockingbird9921 2017-10-31 04:50:56
定义一个CheckBox的数组后,有Name 为Light1--Light50的CheckBox控件,如何批量向数组中添加?多谢 就是想象下面这样循环添加

Dim checkbox(49) As CheckBox
For i = 1 To 50
checkbox(i - 1) = "Light" & i
Next
...全文
544 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
mockingbird9921 2017-11-01
  • 打赏
  • 举报
回复
引用 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进行改变
mockingbird9921 2017-11-01
  • 打赏
  • 举报
回复
引用 4 楼 yangliu0512 的回复:

 Dim checkbox(49) As CheckBox
  For i = 1 To 50
            checkbox(i - 1) = Controls.Find("Light" & i,True)(0)
  Next
谢谢大神
FainSheeg 2017-11-01
  • 打赏
  • 举报
回复
checkbox(i - 1).Checked = True 不行?
FainSheeg 2017-10-31
  • 打赏
  • 举报
回复

 Dim checkbox(49) As CheckBox
  For i = 1 To 50
            checkbox(i - 1) = Controls.Find("Light" & i,True)(0)
  Next
rmini 2017-10-31
  • 打赏
  • 举报
回复
不太熟悉,继续关注
mockingbird9921 2017-10-31
  • 打赏
  • 举报
回复
引用 1 楼 xdashewan 的回复:
你需要先new出CheckBox,然后设置name为"Light" & i,然后再放入数组
我已经在上位机面板上放了CheckBox,并命名成了Light1,Light2……,这样该怎么办?
xdashewan 2017-10-31
  • 打赏
  • 举报
回复
你需要先new出CheckBox,然后设置name为"Light" & i,然后再放入数组

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧