- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- SplitContainer 隐藏其中一个面板后让他自动缩小,显示就扩大 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=102039)
-- 发布时间：2017/6/12 11:56:00
-- SplitContainer 隐藏其中一个面板后让他自动缩小,显示就扩大
SplitContainer 隐藏其中一个面板后让他自动缩小 或者显示其中一个面板后让 他自动扩大? 请问这个代码如何实现
-- 发布时间：2017/6/12 12:10:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=78838
-- 发布时间：2017/6/12 13:40:00
--
我要的不是这个, 我比如我现在的SplitContainer面板是 1024.768 我隐藏掉其中一半 窗口自己就变成 (1024*768)/2 , 我在点不隐那一半藏窗口又变回 1024*768
-- 发布时间：2017/6/12 14:25:00
--
直接设置窗口的宽高
e.form.width = e.form.controls("SplitContainer1").width
e.form.height = e.form.controls("SplitContainer1").height
-- 发布时间：2017/6/12 15:44:00
--
还是不行 麻烦老师做个实例, 点击按钮, 想这样的 SplitContainer面板是 1024.768 我隐藏掉其中一半 窗口自己就变成 (1024*768)/2 , 我在点不隐那一半藏窗口又变回 1024*768
-- 发布时间：2017/6/12 15:45:00
--
请，上传实例。
-- 发布时间：2017/6/12 18:15:00
--
此主题相关图片如下：跟踪.png
当我点击按钮的 时候希望 右边完全消失, 同时窗口 只有左边那么大
-- 发布时间：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
-- 发布时间：2017/6/13 14:21:00
--
那么我要是在点击一下 想让他还原 怎么写呢?
-- 发布时间：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编辑过]