专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码合并  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57423)

--  作者：Bin
--  发布时间：2014/9/24 15:58:00
--
如果你没有 2 3 4 5 6 9 11 12 那就无法正常获取控件,自然就报错了啊.

--  作者：Bin
--  发布时间：2014/9/24 15:59:00
--
最简单的办法调整你控件的名称为连续的数字

--  作者：有点甜
--  发布时间：2014/9/24 15:59:00
--
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