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

此主题相关图片如下：gif 2021-01-26 16-51-26.gif

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