以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口最小化后会报错。。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139487)
--  作者：houseer
--  发布时间：2019/8/14 0:38:00
--  窗口最小化后会报错。。
我的一个首页窗口里用了一些SplitContainer， 但是一把窗口最小化就是报错：

SplitterDistance must be between Panel1MinSize and Width - Panel2MinSize.


下面是我那个窗口sizechanged 事件里的代码，我感觉没什么问题：

Dim frm As WinForm.Form = Forms("我的首页")
Dim sp1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
Dim sp2 As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
Dim sp3 As WinForm.SplitContainer = e.Form.Controls("SplitContainer3")
Dim sp4 As WinForm.SplitContainer = e.Form.Controls("SplitContainer4")

sp1.SplitterDistance = frm.Width/2
sp2.SplitterDistance = frm.Height/2
sp3.SplitterDistance = frm.Height/2
--  作者：有点蓝
--  发布时间：2019/8/14 8:48:00
--  

If e.Form.panel.width > 0 Then
    sp1.SplitterDistance = frm.Width/2
End If
If e.Form.panel.Height> 0 Then
    sp2.SplitterDistance = frm.Height/2
    sp3.SplitterDistance = frm.Height/2
End If