一、问题描述:
如何才能判断一个窗体有没有被作为子窗体打开?
二、解答:
需要使用自定义函数 函数如下:
Public Function IsChildForm(CurForm As Form) As Boolean
On Error Resume Next
Dim strName As String: strName = CurForm.Parent.Name
IsChildForm = (Len(strName) > 0)
End Function
使用示例:
IsChildForm(form_frm窗体)