Question

我有一个两个表单应用..主窗体加载到屏幕的底角。但我总是无法在该表单的中心加载第二个表单。我曾经做父母/孩子的事情，但它搞砸了我的设计。有没有更好的方法呢？

谢谢！

'Set window to lower right of screen
    Me.Location = New Point(Screen.PrimaryScreen.WorkingArea.Width - Me.Width, Screen.PrimaryScreen.WorkingArea.Height - Me.Height)

Answer 1

如果子表单是对话框表单，那么您只需设置StartPosition属性：

Dim f As New Form
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog(Me)

如果子表单不是对话框表单，请尝试手动定位表单：

Dim f As New Form
f.StartPosition = FormStartPosition.Manual
AddHandler f.Load, Sub()
                     f.Location = New Point(Me.Left + Me.Width / 2 - f.Width / 2, _
                                            Me.Top + Me.Height / 2 - f.Height / 2)
                   End Sub
f.Show(Me)

Answer 2

如果您希望第二个表单在第一个表单中居中，则应该应用以下公式：

Me.Location = New Point((firstForm.Width - Me.Width) / 2, (firstForm.Height - Me.Height) / 2)

表格位置VB.net

2 个答案: