VB.NET FormStartPosition調整

Question

後，我需要顯示它之前調整自己的狀態：

Private Sub frm1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load 

    Me.Width = Me.pnlMain.Width + 25 

End Sub 

在開發過程中，我的狀態真的是廣給我看在窗體右側的一些控制。它們在運行時不可見，而且我的表單不應該像開發時那樣廣泛。

但是，我仍然想使用窗體的「CenterScreen」啓動位置。

這不起作用，因爲VB.NET會在加載事件之前設置表單的位置。

有人可以幫忙嗎？

這不起作用：

InitializeComponent() 

    Me.StartPosition = FormStartPosition.CenterScreen 'This is done BEFORE the load event, so it is too early for my purposes 

Answer 1

可以使用Shown事件：

Private Sub MyForm_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown 
    Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width/2) - (Me.Width/2)), CInt((Screen.PrimaryScreen.WorkingArea.Height/2) - (Me.Height/2))) 
End Sub 

編輯：或者更好的是，在HandleCreated事件，所以你看不到的形式迅速出現在原來的地方，他們移動到中心屏幕：

Private Sub MyForm_HandleCreated(sender As Object, e As System.EventArgs) Handles Me.HandleCreated 
    Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width/2) - (Me.Width/2)), CInt((Screen.PrimaryScreen.WorkingArea.Height/2) - (Me.Height/2))) 
End Sub