以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  分区切换时闪烁并出现滚动条，啥情况？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91976)
--  作者：yanzhen2010
--  发布时间：2016/10/23 15:43:00
--  分区切换时闪烁并出现滚动条，啥情况？
分区切换时闪烁并出现滚动条，啥情况？

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
--  作者：狐狸爸爸
--  发布时间：2016/10/23 17:36:00
--  

调整尺寸有闪烁正常，扩展尺寸超过实际尺寸的时候，会出现滚动条。

减少闪烁，可以看看：

 

http://www.foxtable.com/webhelp/scr/2914.htm