IsValid 子程序或函数未定义

Question

关闭一个窗口前判断另一个窗口是否打开的，如果是打开的，就关闭掉，我用了下面的句子       If IsValid(Form6) = True Then
          Unload Form6
       End If但是系统提示 IsValid 子程序或函数未定义，请大人帮助解惑，谢谢哦

Answer 1

IsValid这是一个自定义函数,你找找,

Answer 2

Private Declare Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Function IsValid(frm As Form) As Boolean
IsValid = IsWindow(frm.hwnd)
End Function

Answer 3

我经常用的时forms集合遍历方法来关闭。