主题：如何获取某个面板里的所有指定类型的控件

For Each o As Object in 控件.Children

 

或者

 

For Each o As object in 控件.BaseControl.Controls

方法一：盒子思维，一行n个放在一个panel里，设置好停靠；n行n个panel，放在一个大panel里，设置好停靠。

 

方法二：直接控制left、top，只要计算精确，不会混乱的。

如果确定个数，那样好办啊，记录个数就行了

 

Dim count As Integer = 0

Dim x As Integer = 0

Dim y As Integer = 0

 

 

x += 控件.Width + 20

If count >0 AndAlso count mod 4 = 0 then

    x = 0

    y = y + 控件.Height + 20

End If

控件.left = x

控件.top = y

count += 1

 

分开啊