For Each i As Integer = 1 To 13
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer" & i )
sp.Panel1.Collapsed = True
Next
上面的代码想替代下面的代码 会报错 哪里错了
'Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
'sp.Panel1.Collapsed = True
'
'Dim s1p As WinForm.SplitContainer = e.Form.Controls("SplitContainer7")
's1p.Panel2.Collapsed = True
'
'Dim s4p As WinForm.SplitContainer = e.Form.Controls("SplitContainer8")
's4p.Panel2.Collapsed = True
'
'Dim s2p As WinForm.SplitContainer = e.Form.Controls("SplitContainer10")
's2p.Panel1.Collapsed = True
'
'Dim s3p As WinForm.SplitContainer = e.Form.Controls("SplitContainer13")
's3p.Panel1.Collapsed = True
加好友 
发短信
Post By：2014/9/24 15:55:00 [显示全部帖子]
