比如窗体里包含一些Public变量,但Unload一个窗体后,检测
if form1 is nothing then
窗体并不是Nothing,并且Public变量仍然可以访问
注意:
1.这个时候访问窗体的内容,比如控件,将导致引发Form_Load事件
2.这个时候访问Public变量不引发任何事件
但是当这个窗体从来没有加载过的时候,却是有区别的:
1.从来没有加载过的时候访问窗体的内容,比如控件,将导致引发Form_Load事件
2.从来没有加载过的时候访问Public变量也将引发Form_Load事件
问题是:如何得知这个窗体加载过,并且已经Unload,当还没有成为Nothing?
Option Explicit
Private Sub Command1_Click()
Dim TempFrm As Form
For Each TempFrm In Forms
If TempFrm.Name = "Form2" Then
MsgBox "Form2 is Loaded"
Exit Sub
End If
Debug.Print TempFrm.Name
Next
MsgBox "Form2 is Nothing"
End Sub
Private Sub Command2_Click()
Form2.Show
End Sub