VB.Net 设置子窗口在父窗口居中显示

Private Function SetLocation(ByVal insForm As Form) As Point

'Screen.AllScreens[0]是获取当前显示器设备窗口的第一个

Dim insScreen As Screen = Screen.AllScreens(0)

If (Not Me.OwnerForm Is Nothing) Then

'获取控件父窗口的屏幕

insScreen = Screen.FromControl(Me)

End If

'当前屏幕的宽度 - 子页面的宽度

Dim width As Integer = (insScreen.WorkingArea.Width - insForm.Width)

'当前屏幕的高度 - 子页面的高度

Dim height As Integer = (insScreen.WorkingArea.Height - insForm.Height)

'居中

Dim x As Integer = (insScreen.WorkingArea.X + CInt(Math.Round(CDbl((CDbl(width) / 2)))))

Dim y As Integer = (insScreen.WorkingArea.Y + CInt(Math.Round(CDbl((CDbl(height) / 2)))))

'启动模式

insForm.StartPosition = FormStartPosition.Manual

'返回

Return New Point(x, y)

End Function