Question

我正在尝试更改VB窗体的高度，并且它保持相同的大小。所有其他改变表格的命令都有效。

reportForm.cmdRun.Top = currTop - 23
reportForm.ScrollHeight = currTop + 30
reportForm.Height = currTop + 30
reportForm.Show 1

CurrTop当前等于109，所以高度应该设置为139，但它仍然保持在570？ ScrollHeight确实设置为139。

我试过reportForm.Height = 100，但高度仍然保持在570。

另一个问题（可能是连接的）是当表单显示时，它显示没有高度，只显示标题栏，我需要将其向下拖动以显示表单。

任何帮助都将不胜感激。

谢谢。

Answer 1

我假设您希望表单的内部高度为139

您现在正在尝试设置表单的总高度，其中包括任何边框和标题栏

快速解决方法是将（高度 - 比例高度）添加到您正在设置的高度

currTop = currTop + Height - ScaleHeight
reportForm.cmdRun.Top = currTop - 23
reportForm.ScrollHeight = currTop + 30
reportForm.Height = currTop + 30
reportForm.Show vbModal

VB6表单高度未设置

1 个答案: