vb6内部表格调整大小

Question

是否可以调整vb6内部表单的大小，因为如果我使用Form1.Height或Form1.Width它包括窗口边框高度和宽度，所以我只能在一个窗口主题中使用此代码（例如，它在WinXP中最适合使用XP主题，但是在WinXP中没有使用经典主题，它看起来太长了），有什么建议吗？

Answer 1

您可以做的是将宽度（外部大小）与ScaleWidth（内部大小）进行比较，以获得非客户端边框上的大小。 同样，您可以将高度与ScaleHeight进行比较，以获得顶部和底部的非客户端大小。 从那里你可以根据你想要的内部（客户区域）大小加上非客户端大小来设置你的最终高度和宽度。

这样的东西可以放在你的Form_Load ：

  Const DesiredClientHeight as Single = 3435
   Const DesiredClientWidth as Single = 3345

   Dim fNonClientHoriz As Single, fNonClientVert As Single

   fNonClientHoriz = Me.Width - Me.ScaleWidth
   fNonClientVert = Me.Height- Me.ScaleHeight

   Me.Width = DesiredClientWidth + fNonClientHoriz 
   Me.Height = DesiredClientHeight + fNonClientVert 

请注意，表单宽度和高度始终为缇，因此如果您将缩放模式更改为缇以外的其他模式，则需要考虑到这一点。