以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动伸展分区面板  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40344)

--  作者:foskycn
--  发布时间:2013/9/16 10:06:00
--  [求助]自动伸展分区面板
怎么样才能让面板1在隐藏了B之后能自动延展呢?现在这个样子如果隐藏了B,那个位置空出一大块来了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏分区面板.foxdb



--  作者:Bin
--  发布时间:2013/9/16 10:11:00
--  
这个没有办法,只能使用代码计算判断大小,然后设置宽度
--  作者:Bin
--  发布时间:2013/9/16 10:19:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏分区面板.foxdb


--  作者:foskycn
--  发布时间:2013/9/16 10:25:00
--  
谢谢BIN,这方法不错!
--  作者:aalons
--  发布时间:2013/9/16 11:52:00
--  
开发版的啊  看来学不了了。得买开发版了。
--  作者:woshuovae
--  发布时间:2013/9/16 22:20:00
--  

一个逻辑值吗,其实挺简单的啊,不是很复杂,有个collapsed的属性,按钮胡代码

e.Form.Controls("SplitContainer1").panel1.collapsed=not e.Form.Controls("SplitContainer1").panel1.collapsed
If e.Form.Controls("SplitContainer1").panel1.collapsed = False Then
e.Form.Controls("Button1").text = "隐藏前"
Else
e.Form.Controls("Button1").text = "隐藏后"
End If

 

 


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

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

--  作者:woshuovae
--  发布时间:2013/9/16 22:23:00
--  

我刚开始也是在visible 上做,结果不是很理想

 


--  作者:blackzhu
--  发布时间:2013/9/17 7:50:00
--  
奇怪了 这个做法 一句代码 两个分区面板不就搞定了,看窗口2,Bin 有点小复杂.

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:隐藏分区面板.foxdb