Foxtable(狐表)用户栏目专家坐堂 → SplitContainer 隐藏其中一个面板后让他自动缩小,显示就扩大


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

主题:SplitContainer 隐藏其中一个面板后让他自动缩小,显示就扩大

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


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
SplitContainer 隐藏其中一个面板后让他自动缩小,显示就扩大  发帖心情 Post By:2017/6/12 11:56:00 [只看该作者]

SplitContainer 隐藏其中一个面板后让他自动缩小  或者显示其中一个面板后让 他自动扩大?  请问这个代码如何实现

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/12 12:10:00 [只看该作者]


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


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/12 13:40:00 [只看该作者]

我要的不是这个,  我比如我现在的SplitContainer面板是  1024.768     我隐藏掉其中一半  窗口自己就变成  (1024*768)/2   ,    我在点不隐那一半藏窗口又变回 1024*768

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/12 14:25:00 [只看该作者]

  直接设置窗口的宽高

 

e.form.width = e.form.controls("SplitContainer1").width

e.form.height = e.form.controls("SplitContainer1").height


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


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/12 15:44:00 [只看该作者]

还是不行  麻烦老师做个实例,  点击按钮,   想这样的 SplitContainer面板是  1024.768     我隐藏掉其中一半  窗口自己就变成  (1024*768)/2   ,    我在点不隐那一半藏窗口又变回 1024*768

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/12 15:45:00 [只看该作者]

 请,上传实例。

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


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/12 18:15:00 [只看该作者]


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

当我点击按钮的 时候希望    右边完全消失,   同时窗口 只有左边那么大 

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110810 积分:563988 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/12 20:11:00 [只看该作者]

Dim spc As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
e.form.baseform.width = spc.Panel1.width
spc.Panel2.Collapsed = True

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


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/13 14:21:00 [只看该作者]

那么我要是在点击一下 想让他还原 怎么写呢?

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


加好友 发短信
等级:童狐 帖子:292 积分:2516 威望:0 精华:0 注册:2017/1/8 15:53:00
  发帖心情 Post By:2017/6/13 14:53:00 [只看该作者]


Dim spc As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
e.form.baseform.width = spc.Panel1.width
spc.Panel2.Collapsed = True
  我现在打开窗口级默认隐藏 了   右边    但是在点出来的时候  您看右边 窗口都进屏幕里面去了   (我想让他正常的显示在屏幕中间)

此主题相关图片如下:屏幕里面.png
按此在新窗口浏览图片


[此贴子已经被作者于2017/6/13 15:28:38编辑过]

 回到顶部
总数 11 1 2 下一页