Private Sub Form_Initialize()End Sub

解决方案 »

  1.   

    由先到后:
    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()
      

  2.   

    我用下面程序实验
    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
      

  3.   

    您可以自己写个程序测试一下的
    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
      

  4.   

    to gump2000(阿甘) (  )
    用断点不是更好一点?谢谢大家的热心回答,没想到结帖晚了一点人气就这么旺了,只好给帖子加分来答谢大家了!