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 父表单(没有停靠面板或 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

如果您在 MDIParent 中添加了面板或 ToolStrip,则您也必须将其考虑到您的等式中。

于 2012-04-04T14:14:38.077 回答