怎样关闭vb程序外父窗口的子窗口？

Question

怎样关闭vb程序外父窗口的子窗口，也就是说父窗口不关闭只关闭子窗口  例如autocad那样，我只关闭autocad下的图，不关闭autocad主程序，有没有可能做到呢？应该是用API吧！谢谢！

Answer 1

先findwindow找到父窗体 ,在findwindowex找到子窗体，然后SendMessage lwnd, WM_CLOSE, 0, ByVal 0&,lwnd为你找到的子窗体的句柄。

Answer 2

Dim frmCurr As Form
  For Each frmCurr In Forms
    If frmCurr.Name <> MDIForm1.Name Then
      Unload frmCurr
      Set frmCurr = Nothing
    End If
  Next frmCurr