主题：[求助]代码合并

如果你没有 2  3  4 5 6  9  11 12  那就无法正常获取控件,自然就报错了啊.

那这种情况  怎么办呢

最简单的办法调整你控件的名称为连续的 数字

Dim sp1() As Integer = {1,10,13}
Dim sp2() As Integer = {7,8}
For Each i As Integer In sp1
    Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer" & i)
    sp.Panel1.Collapsed = True
Next
For Each i As Integer In sp2
    Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer" & i)
    sp.Panel2.Collapsed = True
Next

谢谢甜老师