以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享]完美解决分区1/2比例问题  (http://foxtable.net/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


--  作者:有点蓝
--  发布时间:2021/1/26 17:05:00
--  
图片点击可在新窗口打开查看
--  作者:y2287958
--  发布时间:2021/1/26 17:14:00
--  
浪费了一丢丢空间,既然表的上面可以放控件,不如将复选框置于上面好过。
--  作者:宇哥
--  发布时间:2021/1/26 19:08:00
--  
我自己这边在按钮旁边放置了一对text框 用来提示信息
还不错

--  作者:fangdejin
--  发布时间:2021/1/26 19:30:00
--  
不错。