我在MDI主窗体上面装了一个按钮,用来关闭打开的当前CHILD窗体
但是如果我关闭了所有的窗体以后,再按按钮就报错,程序如下
Dim N As Form
Set N = Me.ActiveForm Unload N
我想来判断当前的CHILD窗体个数,如果为0,我就灰掉按钮
我该怎么判断阿?
但是如果我关闭了所有的窗体以后,再按按钮就报错,程序如下
Dim N As Form
Set N = Me.ActiveForm Unload N
我想来判断当前的CHILD窗体个数,如果为0,我就灰掉按钮
我该怎么判断阿?
For Each b In Forms
If b.Name <> "mdiform1" Then Unload b
Next
'close all sub forms
For i = Forms.Count - 1 To 1 Step -1
If Forms(i).Caption = "....." Then
Unload Forms(i)
End If
Next