- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [分享]完美解决分区1/2比例问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160258)
-- 发布时间：2021/1/26 16:59:00
-- [分享]完美解决分区1/2比例问题
感谢蓝老师和狐友，本人刚学1个月 ，解决了赶紧发出来
此主题相关图片如下：gif 2021-01-26 16-51-26.gif
代码：（建一个复选框改成按钮样式，依附于放到停靠于分区中线，代码放到全局事件checkedchanged中）
Dim sp As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
sp.SplitterDistance = sp3.Parent.Height /2
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox0")
If e.sender.checked Then
e.Sender.Image = GetImage("image\\折叠3.png")
sp.SplitterDistance = sp.Height / 2
Else
e.Sender.Image = GetImage("image\\折叠4.png")
sp.SplitterDistance =e.form.height- 30
End If
sp.SplitterDistance = sp3.Parent.Height /2
Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox0")
If e.sender.checked Then
e.Sender.Image = GetImage("image\\折叠3.png")
sp.SplitterDistance = sp.Height / 2
Else
e.Sender.Image = GetImage("image\\折叠4.png")
sp.SplitterDistance =e.form.height- 30
End If
-- 发布时间：2021/1/26 17:05:00
--
-- 发布时间：2021/1/26 17:14:00
--
浪费了一丢丢空间，既然表的上面可以放控件，不如将复选框置于上面好过。
-- 发布时间：2021/1/26 19:08:00
--
我自己这边在按钮旁边放置了一对text框 用来提示信息
还不错
-- 发布时间：2021/1/26 19:30:00
--
不错。