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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [分享]完美解决分区1/2比例问题

共有2910人关注过本帖树形打印复制链接主题：[分享]完美解决分区1/2比例问题

宇哥

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：137 积分：1046 威望：0 精华：0 注册：2021/1/7 16:45:00

[分享]完美解决分区1/2比例问题 发帖心情

Post By：2021/1/26 16:59:00 [只看该作者]

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