Foxtable(狐表)用户栏目专家坐堂 → 一个窗体中 有多个分区面板 如何固定他们的比例呢?


  共有4122人关注过本帖树形打印复制链接

主题:一个窗体中 有多个分区面板 如何固定他们的比例呢?

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
一个窗体中 有多个分区面板 如何固定他们的比例呢?  发帖心情 Post By:2020/5/10 21:55:00 [显示全部帖子]

一个窗体中 有多个分区面板   如何固定他们的比例呢?
实现图中1 2两个分区面板不管窗体怎么变化  他们的比例都是一样大

图片点击可在新窗口打开查看此主题相关图片如下:12.png
图片点击可在新窗口打开查看

以下内容是专门发给有点蓝浏览



 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)在窗口sizechanged事件If e.Form.wid...  发帖心情 Post By:2020/5/15 16:07:00 [显示全部帖子]

楼上的代码实现了分区面板Vertical平均分配    Horizontal模式下 怎么实现按照比列显示呢?

有点蓝老师  怎么实现窗体中的组件  随窗体大小变化之后  自动放置在固定的位置  并且成比列显示
采用緢定 一直搞不定

设计时是这样

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看
运行后确是这样了  因为窗体大小会变大

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/5/15 16:11:37编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)上传实例  发帖心情 Post By:2020/5/15 16:40:00 [显示全部帖子]

麻烦有点蓝老师哦

以下内容是专门发给有点蓝浏览



[此贴子已经被作者于2020/5/15 16:41:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)哪个窗口?怎么测试?  发帖心情 Post By:2020/5/15 17:01:00 [显示全部帖子]

就是打开的第一个窗体    在窗体名称中是  比对窗体 显示文件列表和附件列表的部分  是在设计时正常   当窗体全屏或者放大时候就会体现出来  不完整不协调

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)这个没有办法。客户端窗口没有很好的...  发帖心情 Post By:2020/5/15 17:09:00 [显示全部帖子]

不是窗口哦  是分区面板6 的比例 
比如我想调整第一个面板显示百分之70  第二个分区就只显示百分之70

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)和分区面板3的用法完全一样呀。到siz...  发帖心情 Post By:2020/5/15 17:26:00 [显示全部帖子]

If e.Form.width > 0 AndAlso e.Form.height > 0 Then
    Dim sp36 As WinForm.SplitContainer = e.Form.Controls("SplitContainer6")
    sp36.SplitterDistance = sp36.parent.height/0.3
End If

红色部分应该怎么写呢? 当窗体大小变化后
我想实现的是第一个分区占百分之70
第二个分区占百分之30

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)小学数学题呀,假设高度为100,取30%...  发帖心情 Post By:2020/5/15 18:34:00 [显示全部帖子]

不得要领哦  是否可以指导一下啊

我自己操作了如下 结果也没有得行
If e.Form.width > 0 AndAlso e.Form.height > 0 Then
    Dim sp326 As WinForm.SplitContainer = e.Form.Controls("SplitContainer2")
    sp326.SplitterDistance = sp326.Panel1.ExtendSize=New Size(500,400)
    sp326.SplitterDistance = sp326.Panel2.ExtendSize=New Size(500,400)
End If

 回到顶部