- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何保持停靠窗口的高度？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138137)
-- 发布时间：2019/7/23 16:28:00
-- 如何保持停靠窗口的高度？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.table |
如题，附件以上。
目的是固定窗口高度，目前是可以向下拉拉大窗口高度的，请教如何固定其高度或者在窗口下缘不出现下拉的图标？
-- 发布时间：2019/7/23 16:40:00
--
Dim frm = e.Form.panel.parent.parent
If frm IsNot Nothing Then
\'frm.height = e.Form.height
e.Form.panel.parent.height = 28
frm.height = 28
e.Form.height = 28
End If
-- 发布时间：2019/7/23 17:11:00
--
简单完美！
-- 发布时间：2019/7/24 21:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目7.table |
蓝版，又有问题请教。
我做了一个向下的停靠窗口，按照之前向上停靠窗口的做法但无法保持固定的高度，仍然可以上拉。
蓝版，如何破？
-- 发布时间：2019/7/25 9:11:00
--
蓝版，有空的时候看看
-- 发布时间：2019/7/25 9:19:00
--
e.Form.panel.parent.parent.parent.height = 28
e.Form.panel.parent.parent.height = 28
-- 发布时间：2019/7/25 9:29:00
--
谢谢蓝版，这样是可以保持高度。但新问题又出现了：如果按着鼠标继续往下拉的时候，该窗口会“丢失”（即跑到状态栏的后面去了），如何避免？或者说干脆去除那个可以上下拉的标志？
-- 发布时间：2019/7/25 10:36:00
--
去掉sizechanged事件
窗口afterload
\'设置窗口高度及工具栏与控件背景颜色
Dim frm = e.Form.panel.parent.parent.parent
frm.minimumsize = new size(e.form.panel.width,28)
frm.maximumsize = new size(e.form.panel.width,28)
-- 发布时间：2019/7/25 10:37:00
--
窗口beforeclose事件加上
Dim frm = e.Form.panel.parent.parent.parent
frm.minimumsize = new size(e.form.panel.width,0)
-- 发布时间：2019/7/25 12:53:00
--
再次谢谢蓝版。
以上方法是可以达到保持高度的目的，但同时如果存在记录窗口（或列窗口）的话，记录窗口的下面部分内容则给这个窗口给遮住了，有什么两全其美的方法吗？