VB6 窗体高度/宽度被命令行构建忽略

Question

我们正在尽快退出 VB6，但与此同时，我们已经开始从 Build Server 上的命令行构建我们的 VB6 应用程序。

问题：构建服务器有一个基本的视频适配器，并导致表单被截断到基本适配器的分辨率，而不是表单本身的高度和宽度。

我们发现的一种解决方法需要进入每个表单的加载事件并在表单属性窗口中手动将高度和宽度属性设置为观察到的大小。

啊..

此应用程序涉及数十种形式，更多应用程序将提供更多形式。 我想构建一个脚本来处理这个问题。

两个问题：

1) 在代码/项目/等中的何处可以找到“属性”窗口中显示的表单的高度和宽度？ 搜索 *.frm 文件不会找到任何获胜者； 也不会打开 *.frx 文件并将已知的高度或宽度转换为十六进制（然后搜索）。

2）除了编辑每个表单之外，我还能做些什么吗？

提前致谢。

乔恩

Answer 1

FRM 格式记录在 VB6手册中。 正如 Angry Jim 观察到的那样，它说高度和宽度以缇为单位存储。 它没有解释 ClientHeight 和 ClientWidth，但正如 OneNerd 和 cmsjr 所说，这是表单内部的大小（没有菜单栏和边框）。 如果您有任何将 StartupPosition 设置为手动的表单，构建服务器也可能会更改 ClientLeft 和 ClientTop。

永远不要在运行时设置窗体的高度和宽度。 其中包括菜单栏和边框，它们在不同版本的 Windows 或不同的主题上有不同的粗细。 所以你会得到错误的尺寸。 改为设置 ScaleHeight 和 ScaleWidth，它们是窗体内部的尺寸。 VB6 运行时根据这些计算适当的高度和宽度。

最后，只需购买一个新的构建服务器（或新的视频卡）。 带领所有开发人员到挥舞着火炬和干草叉的老板面前，或者只是冷静地解释一下 PC 成本和开发人员时间成本之间的区别。

Answer 2

如果您在记事本或任何纯文本编辑器中打开 .frm 文件，则表单大小定义为距顶部几行：

例如：

 ClientHeight    =   8445
 ClientLeft      =   60
 ClientTop       =   450
 ClientWidth     =   9960

我不确定您为什么会遇到这个问题 - 看起来很奇怪 - 但是如果您的构建服务器导致了问题，那么我看到的唯一选择是（1）更改您的构建服务器（或可能升级视频卡），或写入您提到的每个表单的加载事件中的代码，尽管如果您在 IDE 中设置了 postion->center，这可能会对表单的居中产生影响，因此请验证您的表单是否仍然居中，如果这是您想要的结果.

Answer 3

基于此，我会说在属性窗口中看到的高度是一个计算值，其中包括表单的 ClientHeight（在 .frm 中）+边框和标题栏高度。 所以 ClientHeight 可能就是你要找的数字。

Answer 4

高度和宽度以缇（一种独立于设备的度量单位）存储，因此您必须除以Screen.TwipsPerPixelX和Screen.TwipsPerPixelY才能获得正确的值。 对于大多数显示器，这将是 15。（使用 OneNerd 示例中的宽度，9960 缇是 664 像素。）