Foxtable(狐表)用户栏目专家坐堂 → [求助]代码合并


  共有2781人关注过本帖树形打印复制链接

主题:[求助]代码合并

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部