分区切换时闪烁并出现滚动条，啥情况？
Dim p As WinForm.SplitPanel = Forms("入库").Controls("SplitContainer1").Panel1
p.ExtendSize = New Size(860,400)
Forms("入库").Controls("SplitContainer1").Panel1.Collapsed = True
Dim p As WinForm.SplitPanel = Forms("入库").Controls("SplitContainer1").Panel2
p.ExtendSize = New Size(860,400)
Forms("入库").Controls("SplitContainer1").Panel2.Collapsed = True
示例一
设置第一个分区的扩展尺寸，宽度为500，高度为400：
Dim p As WinForm.SplitPanel =
Forms("窗口2").Controls("SplitContainer1").Panel1
p.ExtendSize = New
Size(500,400)
示例二
隐藏第二个分区：
Forms("窗口1").Controls("SplitContainer1").Panel2.Collapsed =
True
加好友 
发短信
Post By：2016/10/23 15:43:00 [显示全部帖子]
