Foxtable(狐表)用户栏目专家坐堂 → 窗口最小化后会报错。。


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

主题:窗口最小化后会报错。。

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


加好友 发短信
等级:小狐 帖子:325 积分:2752 威望:0 精华:0 注册:2015/2/3 19:48:00
窗口最小化后会报错。。  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107757 积分:548124 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部