再线求教？在一个窗体内的VB程序执行顺序

Question

是的，Load事件是对一个窗口的初始化，然后再显示出来

Answer 1

private n as integerPrivate Sub Form_Activate()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Deactivate()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_GotFocus()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Initialize()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Load()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_LostFocus()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Paint()
'    n = n + 1
'    Debug.Print n
End SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Resize()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Terminate()
    n = n + 1
    Debug.Print n
End SubPrivate Sub Form_Unload(Cancel As Integer)
    n = n + 1
    Debug.Print n
End Sub
单步执行,自己看结果

Answer 2

form_initialize
form_load
form_resize
form_activate
form_paint
form_queryunload
form_unload
form_terminate

Answer 3

Private Sub Form_Activate()
    Debug.Print "Activate"
End Sub
Private Sub Form_Deactivate()
   Debug.Print "Deactivate"
End Sub
Private Sub Form_GotFocus()
    Debug.Print "GotFocus"
End Sub
Private Sub Form_Initialize()
   Debug.Print "Initialize"
End SubPrivate Sub Form_Load()
    Debug.Print "Load"
End SubPrivate Sub Form_Resize()
    Debug.Print "Resize"
End SubPrivate Sub Form_Terminate()
    Debug.Print "Terminate"
End Sub单步执行,自己看结果