- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何遍历所有控件？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=15173)
-- 发布时间：2011/12/15 8:09:00
-- 如何遍历所有控件？
Form、 GroupBox、Panel、NavPage、TabPage、SplitterPanel等对象增加一个Children属性，用于返回一个集合，包括所有顶层控件。
如何遍历控件groupbox内的所有控件？
-- 发布时间：2011/12/15 8:23:00
--
for each ctl as winform.control in e.form.controls("groupbox1").Children
next
-- 发布时间：2011/12/15 8:33:00
--
贺老师原来说不能遍历容器内的控件，现在也能做到。我对foxtable的热情更高了。
-- 发布时间：2011/12/15 8:46:00
--
我在记忆中，我的几个问题，贺老师说不能解决，后来都解决了。
-- 发布时间：2011/12/15 9:07:00
--
如何判断指定容器内的控件是否选中
For Each ctl As WinForm.Control In e.Form.Controls("进度").children \'遍历所有控件
If ctl.checked=False
filter="N"
End If
Next
我这个代码为什么不行？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2011/12/15 9:18:00
--
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
解决了。
-- 发布时间：2011/12/15 10:34:00
--
应该加个控件的判断比较好吧!
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
-- 发布时间：2011/12/15 12:07:00
--
谢谢了。