MDI窗体中如何使得打开的窗体只有一个？

Question

要使打开的窗体只有一个，你何必用MDI窗体？

Answer 1

你可以在打开一个窗口前将其它窗口都关闭，代码如下：
Private Sub Mnu_closeall_Click()
'关闭所有MDI子窗体
'Screen.MousePointer = vbHourglass
Do While Not (Me.ActiveForm Is Nothing)
Unload Me.ActiveForm
Loop
'Screen.MousePointer = vbDefault
End Sub

Answer 2

可以用App的PrevInstance来判断
如：
  if app.previnstance then
     unload me
  end if