主题：限制共有窗口大小的问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

比如

 

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

这语句不行

 

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

 

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

我昨天和今天都测试了，直接把代码复制进去的，真的不行。我的是最新版的foxtable。之前我那个代码是可以用的，好像是更新版本之后不是那么好用了

改成

 

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

终于可以了，太厉害了！感谢感谢