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 に答える