2

ばかげた質問のように見えますが、私は次のことを試しました(「私」はMDIParentフォームです)。

Dim frmNotif As New frmNotifica
With frmNotif
  .MdiParent = Me
  .StartPosition = FormStartPosition.Manual
  .Location = New Point(ClientSize.Width - .Width, ClientSize.Height - .Height)
  .Show()
End With

しかし、それは機能しません。

アイデア?

4

1 に答える 1

2

「空の」MDI親フォーム(PanelsまたはToolStripsがドッキングされていない)があるとすると、これは機能するはずです。

Dim frmNotif As New frmNotifica
With frmNotif
  .MdiParent = Me
  .StartPosition = FormStartPosition.Manual

  Dim leftStart As Integer = Me.ClientSize.Width - (.Width + (SystemInformation.Border3DSize.Width * 2))
  Dim topStart As Integer = Me.ClientSize.Height - (.Height + (SystemInformation.Border3DSize.Height * 2))

  .Location = New Point(leftStart, topStart)
  .Show()
End With

PanelまたはToolStripをMDIParentに追加している場合は、それも方程式に含める必要があります。

于 2012-04-04T14:14:38.077 に答える