Question

我正在尝试让我的父表单MDI工作区从子表单大小调整..

我有这段代码

Child.MdiParent = Me
Child.Show()
Me.Size = New Size(Child.Width, Child.Height)

但它会调整整个父表单的大小。在MDI工作区中显示一些滚动条。

Parent size：H:400，W: 800

家长mdisize。 H:350，W:800 .. theres 50因为我有自定义标题栏。停靠在顶部。

Child size：H:200，W: 400

现在我想要parent size到H:250，W:400 ...但它显示滚动条意味着它不完美。需要帮助的人...

Answer 1

其他人可能有更好的建议，但我一直这样做的方法是计算父表单的客户端大小与其实际大小之间的差异：

Dim nonClientWidth As Integer = Me.Size.Width - Me.ClientSize.Width
Dim nonClientHeight As Integer = Me.Size.Height - Me.ClientSize.Height
Me.Size = New Size(Child.Width + nonClientWidth, Child.Height + nonClientHeight)

根据子表单大小调整MDI父工作区的大小

1 个答案: