肯定是先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
你可以写如下代码: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
UP.
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
没问题的
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就是这样的结果。我试了很多次了。
1、第一次之后出现的是什末问题
2、你的unload事件中是不是又调用了load或者show事件