如何在mdi窗体中判断一个子窗体是否打开？？（在线等待，急用！）

Question

我觉得是不可行的
不要使用MDI子窗体然后用findwindows  API函数

Answer 1

Public Function have_form(mdifm As MDIForm) As Boolean
  Dim actfm As Form
  Set actfm = mdifm.ActiveForm
  If actfm Is Nothing Then
     have_form = False
     child_reg = False
  Else
     have_form = True
  End If
End Function

Answer 2

If App.PrevInstance = True Then
        MsgBox "有程序运行"
End If

Answer 3

用Forms这个内置全局对象集合.
dim f 
for each f in forms
   if f.namd ="你要找的窗体" then
       msgbox "给分吧!"
   end if
next