怎么样判断是否有子窗体打开？

Question

我做的一个软件中有一个主窗体和很多的子窗体， 我怎么样判断有没有子窗体打开？？或者怎么样判断某个窗体是否打开？

Answer 1

Dim frm As Form
   For Each frm In Forms
        frm.Name<>"主窗体的Name" then msgbox "有子窗体打开了"
   Next

Answer 2

Dim frm As Form
   For Each frm In Forms
        frm.Name<>"主窗体的Name" then msgbox "有子窗体打开了"
        msgbox frm.Name '显示打开的窗体的Name
   Next