изменить размер и центрировать форму до 80% экрана

Question

Мне нужно изменить размер моей формы и заставить ее занимать 80% экрана, в настоящее время это то, что у меня есть

 Dim Sw As Integer = CInt(Screen.PrimaryScreen.Bounds.Width * 0.8)
        Dim Sh As Integer = CInt(Screen.PrimaryScreen.Bounds.Height * 0.8)
        Dim nTaskBarHeight As Integer = Screen.PrimaryScreen.Bounds.Bottom - Screen.PrimaryScreen.WorkingArea.Bottom
        Me.Size = New Size(Sw, Sh - nTaskBarHeight)

Но это не по центру, кто-нибудь может помочь?

Answer 1

Вы меняете только размер;измените меня. Расположение тоже;все еще нужно сделать кое-что для этого:)

аналогичный вопрос с отличным ответом: Положение формы в правом нижнем углу экрана в Visual Basic

Answer 2

Раствор

Dim Sw As Integer = CInt(Screen.PrimaryScreen.WorkingArea.Width * 0.8)
Dim Sh As Integer = CInt(Screen.PrimaryScreen.WorkingArea.Height * 0.8)
Me.Size = New Size(Sw, Sh)
Dim x As Integer = Screen.PrimaryScreen.WorkingArea.Width \ 2 - Me.Width \ 2
Dim y As Integer = Screen.PrimaryScreen.WorkingArea.Height \ 2 - Me.Height \ 2
Me.Location = New Point(x, y)