0

我需要将辅助表单与其他表单的右边框对齐。

当我们在启用 AERO 的情况下编译和运行COMPILED应用程序(而不是从 IDE 运行它)时,会发生以下情况:

在此处输入图像描述

因此,感谢GJKH的伟大回答:如何正确确定 Aero 的非客户区大小?

...现在我可以将辅助窗体对齐到主窗体的右侧,但是辅助窗体仍然未对齐顶部的一些像素:

在此处输入图像描述

这是我正在使用的代码:

 If Debugger.IsAttached Then
      Form2.Location = New Point(Me.Right, Me.Top)
 Else
      Form2.Location = New Point((Me.Location.X + (Me.Width + (Me.Width - Me.ClientSize.Width))), Me.Location.Y)
 End If
4

1 回答 1

1

我把它放在 Form1 中的一个事件中:

    Dim frm As New Form2

    frm.Show()

    frm.SetDesktopLocation(Me.Width + Me.DesktopLocation.X, Me.DesktopLocation.Y)

和 form2 立即排列在 form1 的右侧,它们的顶部完美排列。

于 2013-04-27T02:25:35.267 回答