关于窗口的问题?

Question

请问,在我的应用程序中有5个窗口,我想在退出应用程序的时候判断应用程序中的窗口是否打开了,如果打开我就要先保存数据,然后再关闭,如果没有打开,我就可以直接关闭主窗口,我该怎么做啊?

Answer 1

给每个窗体增加一个loaded只读属性Private mVarLoaded          As BooleanPublic Property Get Loaded() As Boolean
    Loaded = mVarLoaded
End PropertyPrivate Property Let Loaded(ByVal vNewValue As Boolean)
    mVarLoaded = vNewValue
End PropertyPrivate Sub Form_Load()
    Loaded = True
End SubPrivate Sub Form_Unload(Cancel As Integer)
    Loaded = False
End Sub
===============比如有form1,form2,form3,在form1里面
Private Sub Command1_Click()    Debug.Print Form1.Loaded
    Debug.Print Form2.Loaded
    Debug.Print Form3.Loaded
    
    Unload Me
End Sub