肯定是先Load ,然后Show 然后Unload
你可以写如下代码:Option ExplicitPrivate Sub Form_Click()
Dim a As Form1
Set a = New Form1
a.ShowEnd SubPrivate Sub Form_Load()
    MsgBox "Load Event"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Unload Event"
End Sub

解决方案 »

  1.   

    先Load ,然后Show 然后Unload
    UP.
      

  2.   

    sub Form-load()
    debug.print"load form"
    init()
    FUnc()
    end sub sub init()
    debug.print "INIT"
    end subfunc()
    debug.print "UNload"
    end sub如果这样的话
    第一次
    Load form
    init
    unload
    load form
    init第二次
    unload form
    load form
    init``````````````
    ```````````````
    第N次
    unload form
    load form
    init
    unload form
    load form
      

  3.   

    在程序中第一次出现form1时就load了,然后用unlaod放出内存form1.load->form1.show->unlaod form1
      

  4.   

    先Load ,然后Show 然后Unload
    没问题的
      

  5.   

    你是不是在Unload事件中調用了Load事件
      

  6.   

    回复人: visualbasic2000(齐谐) (  ) 信誉:100  2002-09-26 21:06:00  得分:0  
     
     
      sub Form-load()
    debug.print"load form"
    init()
    FUnc()
    end sub sub init()
    debug.print "INIT"
    end subfunc()
    debug.print "UNload"
    unload
    end sub如果这样的话
    第一次
    Load form
    init
    unload
    load form
    init第二次
    unload form
    load form
    init``````````````
    ```````````````
    第N次
    unload form
    load form
    init
    unload form
    load form就是这样的结果。我试了很多次了。
      
      
      

  7.   

    为什么在Form_Load 中调用Unload 呢?
      

  8.   

    好像是每次在form-unload的时候会出现下次Form-load中的事件。我用debug和全局变量试验过了,很奇观.(第一次是正常的,但是后来就有问题了)
    1、第一次之后出现的是什末问题
    2、你的unload事件中是不是又调用了load或者show事件
      

  9.   

    Load ,然后Show 然后Unload