'啟動事件順序 PrivateSub Form1_HandleCreated(ByVal sender AsObject, ByVal e As EventArgs) HandlesMyBase.HandleCreated Console.WriteLine(Date.Now & "-----> 1.Form1_HandleCreated") EndSub PrivateSub Form1_BindingContextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.BindingContextChanged Console.WriteLine(Date.Now & "-----> 2.Form1_BindingContextChanged") EndSub PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load Console.WriteLine(Date.Now & "-----> 3.Form1_Load") EndSub PrivateSub Form1_VisibleChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.VisibleChanged Console.WriteLine(Date.Now & "-----> 4.Form1_VisibleChanged") EndSub PrivateSub Form1_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Activated Console.WriteLine(Date.Now & "-----> 5.Form1_Activated") EndSub PrivateSub Form1_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Shown Console.WriteLine(Date.Now & "-----> 6.Form1_Shown") End Sub
'關閉事件順序 PrivateSub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Closing Console.WriteLine(Date.Now & "-----> 1.Form1_Closing") EndSub PrivateSub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) HandlesMyBase.FormClosing Console.WriteLine(Date.Now & "-----> 2.Form1_FormClosing") EndSub PrivateSub Form1_Closed(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Closed Console.WriteLine(Date.Now & "-----> 3.Form1_Closed") EndSub
PrivateSub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) HandlesMyBase.FormClosed Console.WriteLine(Date.Now & "-----> 4.Form1_FormClosed") EndSub
PrivateSub Form1_Deactivate(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Deactivate Console.WriteLine(Date.Now & "-----> 5.Form1_Deactivate") EndSub
PrivateSub Form1_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Closing '實作內容 End Sub