在"GroupBox"控件下有10个“CheckBox”控件,想用以下代码进行一下遍历。

奋斗的绵羊 2019-12-18 09:47:21
情况描述:
在"GroupBox"控件下有10个“CheckBox”控件,想用以下代码进行一下遍历。

Dim aa As Object

For Each aa In Me.Controls
If TypeOf (aa) Is CheckBox Then
MsgBox(aa.text)
End If
Next


但是没有成功,因为10个“CheckBox”是在"GroupBox"容器里面的,所有没有成功,
如果在"GroupBox"容器外面创建一个“CheckBox”用以上代码是遍历出来的,

诉求:
各位路过的大神,能否赐教一下,多谢!!!
...全文
184 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
  • 打赏
  • 举报
回复
引用 3 楼 奋斗的绵羊 的回复:
[quote=引用 2 楼 exception92 的回复:] Me.Controls 这个是当前窗体的子控件集,当然不是GroupBox的。 遍历有些繁琐,建议使用Linq的OfType方法。
能否举个栗子,多谢。[/quote] 参见:https://www.tutorialsteacher.com/linq/linq-filtering-operators-oftype
面向医学编程 2019-12-20
  • 打赏
  • 举报
回复
递归遍历,或者直接用groupbox.controls
奋斗的绵羊 2019-12-19
  • 打赏
  • 举报
回复
引用 2 楼 exception92 的回复:
Me.Controls 这个是当前窗体的子控件集,当然不是GroupBox的。
遍历有些繁琐,建议使用Linq的OfType方法。

能否举个栗子,多谢。
  • 打赏
  • 举报
回复
Me.Controls 这个是当前窗体的子控件集,当然不是GroupBox的。 遍历有些繁琐,建议使用Linq的OfType方法。
奋斗的绵羊 2019-12-18
  • 打赏
  • 举报
回复
Dim aa As Object

For Each aa In Me.GroupBox3.Controls
If TypeOf (aa) Is CheckBox Then
MsgBox(aa.text)
End If
Next

已经成功解决,请大家参考。

16,722

社区成员

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

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