Dim oForm As Form '窗体一大堆,循环 For Each oForm In Forms '判断语句 Next
在此我相结合: lhfcsdn(小刘) 与csdngoodnight(居然比我还快,你真行!) 的思路: Dim oForm As Form '窗体一大堆,循环 For Each oForm In Forms if form1 is nothing then msgbox "form1已释放内存" end if '判断语句 Next 但我应该把这个语句放在何处判断了,假如有Form1,form2,....form(n)
梅举所有窗体,如果找不到那个,就是它未加载或已释放。
msgbox "form1已释放内存"
end if
'窗体一大堆,循环
For Each oForm In Forms
'判断语句
Next
Dim oForm As Form
'窗体一大堆,循环
For Each oForm In Forms
if form1 is nothing then
msgbox "form1已释放内存"
end if
'判断语句
Next
但我应该把这个语句放在何处判断了,假如有Form1,form2,....form(n)