主题：如何遍历所有控件？

Form、 GroupBox、Panel、NavPage、TabPage、SplitterPanel等对象增加一个Children属性，用于返回一个集合，包括所有顶层控件。

如何遍历控件groupbox内的所有控件？

for each ctl as winform.control in e.form.controls("groupbox1").Children

 

next

贺老师原来说不能遍历容器内的控件，现在也能做到。我对foxtable的热情更高了。

我在记忆中，我的几个问题，贺老师说不能解决，后来都解决了。

如何判断指定容器内的控件是否选中

For Each ctl As WinForm.Control In e.Form.Controls("进度").children '遍历所有控件
    If ctl.checked=False
        filter="N"
    End If
Next

我这个代码为什么不行？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim filter As String
For Each ctl As WinForm.Control In e.Form.Controls("进度").children '遍历所有控件
    If e.form.controls(ctl.name).checked=False
        filter="N"
    End If
Next

 

解决了。

应该加个控件的判断比较好吧!

 

 

For Each c As WinForm.Control In e.Form.Controls
    If Typeof c Is WinForm.TextBox Then '判断控件是否是文本框
        Dim t As WinForm.TextBox = c '使用特定类型的变量引用控件
        t.Value = Nothing
    End If
Next

谢谢了。