[分享]完美解决分区1/2比例问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

感谢蓝老师和狐友，本人刚学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

主题：[分享]完美解决分区1/2比例问题