VB6表格高度未设置

我试图改变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

另一个问题（可能是相关的）是，当窗体显示时，它显示的是没有高度的，只有标题栏，我需要向下拖动它来显示窗体

任何帮助都将不胜感激

---

谢谢。

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

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

一个快速修复方法是将（height-scaleheight）添加到您正在设置的高度

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

---

reportForm.MinimumHeight是否设置为<139？设置高度后是否尝试过reportForm.Refresh（）？是否也有reportForm.Style需要设置为“re sizeable”？我不知道有任何reportForm.MinimumHeight可用。另外，我刚刚再次运行了调试器，我看到在运行reportForm.Height=currTop+30之前，高度是5685，这意味着我可以调整它的大小（到570），所以这不会是问题所在。表单高度100非常小-假设你说的是twips（高度刻度高度）=570，在我的默认设置中，从所有注释，我意识到我的错误。此表单实际上是从VBA导入的，是一个“设计器”表单。没有可用的缩放高度。当我在VBA中使用139时，高度很好，因为它是PIPs。在VB6中，570仅是标题栏的高度，这就是我无法将高度设置为小于570的原因。这也是表格打开时只显示标题栏的原因。我必须重新计算应该设置的正确高度。谢谢大家。只需谷歌搜索，就可以用Screen.twipperpixelxindecd完成。对于正常的默认表单，标题栏的高度是570，所以您的总高度必须大于此值。。。但是要小心，因为有些设置可能会更改标题栏的高度。。。我不熟悉designers表单，所以我不确定它有哪些设置，哪些可能会更改