以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  限制共有窗口大小的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137019)

--  作者:vimin
--  发布时间:2019/6/26 15:07:00
--  限制共有窗口大小的问题
上和左的窗口我想限制改变大小,把代码写在sizechanged事件中,之前可以的,最近不知道为什么代码没用了。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


--  作者:有点甜
--  发布时间:2019/6/26 16:05:00
--  

比如

 

Dim dh = e.Form.panel.parent.parent.parent
If dh IsNot Nothing Then
    dh.height = 120
End If


--  作者:vimin
--  发布时间:2019/6/27 7:34:00
--  
这语句不行
--  作者:有点甜
--  发布时间:2019/6/27 9:50:00
--  
以下是引用vimin在2019/6/27 7:34:00的发言:
这语句不行

 

我测试没问题,请认认真真测试。

 

Dim dh = e.Form.panel.parent.parent.parent
If dh IsNot Nothing Then
    dh.height = 120
End If


--  作者:vimin
--  发布时间:2019/6/28 9:18:00
--  
我昨天和今天都测试了,直接把代码复制进去的,真的不行。我的是最新版的foxtable。之前我那个代码是可以用的,好像是更新版本之后不是那么好用了
--  作者:有点甜
--  发布时间:2019/6/28 9:57:00
--  

改成

 

Dim dh = e.Form.panel.parent.parent
If dh IsNot Nothing Then
    dh.height = 120
    dh.parent.height = 120
End If


--  作者:vimin
--  发布时间:2019/6/28 12:36:00
--  
终于可以了,太厉害了!感谢感谢