如何遍历窗体上的控件并按TYPE给它定具体风格

private sub SetStyle(byval Container as Control)

for each ctrl as control in cpntainer.Controls

if typeof ctrl is panel then

"set panel style

SetStyle(ctrl)

else if typeof ctrl is groupbox

"set groupbox style

SetStyle(ctrl)

else if typeof ctrl is textbox

"set textbox style

.

.

.

.

end if

next

end sub

第8楼. 由 magicbacon 于 2007-6-7 12:22:02 发表

照这么说要用遍历了？

第9楼. 由 magicbacon 于 2007-6-7 12:22:30 发表

说错了，照这么说要用递归了？

第10楼. 由 joeandlily 于 2007-6-7 12:25:33 发表

magicbacon(Cannot help coding)正解。遍历控件集合。

第11楼. 由 joeandlily 于 2007-6-7 12:26:56 发表

不会嵌套了很多层吧？

第12楼. 由 dlzhangln 于 2007-6-7 12:39:57 发表

To:magicbacon

容器中的控件遍历不到么？

需要在循环中对控件加判断

If ctl.HasChildren Then

"继续递归

end if

第13楼. 由 LYDF4151 于 2007-6-8 10:04:37 发表