私は自分のフォームのサイズを変更すると、それが画面の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

ソリューションそのため

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) 

Answer 2

サイズのみが変更されています。 Me.Locationも変更します。まだそれのためにいくつかの計算を行う必要があります:)

偉大な答えで同様の質問： Position form at the bottom right corner of the screen in visual basic