'用如下形式的代码自行验证即可 Option ExplicitPrivate Sub Form_Activate() Debug.Print "Form_Activate" End SubPrivate Sub Form_Deactivate() Debug.Print "Form_Deactivate" End SubPrivate Sub Form_GotFocus() Debug.Print "Form_GotFocus" End SubPrivate Sub Form_Initialize() Debug.Print "Form_Initialize" End SubPrivate Sub Form_Load() Debug.Print "Form_Load" End SubPrivate Sub Form_Paint() Debug.Print "Form_Paint" End SubPrivate Sub Form_Resize() Debug.Print "Form_Resize" End Sub
Option ExplicitPrivate Sub Form_Activate()
Debug.Print "Form_Activate"
End SubPrivate Sub Form_Deactivate()
Debug.Print "Form_Deactivate"
End SubPrivate Sub Form_GotFocus()
Debug.Print "Form_GotFocus"
End SubPrivate Sub Form_Initialize()
Debug.Print "Form_Initialize"
End SubPrivate Sub Form_Load()
Debug.Print "Form_Load"
End SubPrivate Sub Form_Paint()
Debug.Print "Form_Paint"
End SubPrivate Sub Form_Resize()
Debug.Print "Form_Resize"
End Sub
Form_Load
Form_Resize
Form_Activate
Form_GotFocus
Form_Paint
Form_Unload