由先到后: Form_Initialize() Form_Load() Form_Resize() Form_Activate() Form_Paint() Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Form_Unload(Cancel As Integer) Form_Terminate()
我用下面程序实验 Option ExplicitPrivate Sub Form_Activate() Debug.Print "Form_Load" End SubPrivate Sub Form_GotFocus() Debug.Print "Form_Load" 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_Initialize Form_Load Form_Resize Form_Load Form_Load Form_Paint
您可以自己写个程序测试一下的 Private Sub Form_Activate() MsgBox "Activate" End SubPrivate Sub Form_Initialize() MsgBox "Init" End SubPrivate Sub Form_Load() MsgBox "Load" End SubPrivate Sub Form_Paint() MsgBox "Paint" End SubPrivate Sub Form_Resize() MsgBox "Resize" End Sub
to gump2000(阿甘) ( ) 用断点不是更好一点?谢谢大家的热心回答,没想到结帖晚了一点人气就这么旺了,只好给帖子加分来答谢大家了!
Form_Initialize()
Form_Load()
Form_Resize()
Form_Activate()
Form_Paint()
Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Form_Unload(Cancel As Integer)
Form_Terminate()
Option ExplicitPrivate Sub Form_Activate()
Debug.Print "Form_Load"
End SubPrivate Sub Form_GotFocus()
Debug.Print "Form_Load"
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_Initialize
Form_Load
Form_Resize
Form_Load
Form_Load
Form_Paint
Private Sub Form_Activate()
MsgBox "Activate"
End SubPrivate Sub Form_Initialize()
MsgBox "Init"
End SubPrivate Sub Form_Load()
MsgBox "Load"
End SubPrivate Sub Form_Paint()
MsgBox "Paint"
End SubPrivate Sub Form_Resize()
MsgBox "Resize"
End Sub
用断点不是更好一点?谢谢大家的热心回答,没想到结帖晚了一点人气就这么旺了,只好给帖子加分来答谢大家了!