怎么在MDI中使用户一次只能打开一个窗体？

[forest]

[sjxf]

我也想知道

[TopHead]

打开的窗体是MDI子窗体吗？如果不是，很简单。如果是，看下面的程序片断：

Option Explicit

Private Sub m1_Click()
Dim frm As Form
For Each frm In Forms
If frm.Name <> "MDIForm1" Then
If frm.MDIChild Then
MsgBox "请退出 " & frm.Name, vbInformation
Exit Sub
End If
End If
Next
Form1.Show
End Sub

Private Sub m2_Click()
Dim frm As Form
For Each frm In Forms
If frm.Name <> "MDIForm1" Then
If frm.MDIChild Then
MsgBox "请退出 " & frm.Name, vbInformation
Exit Sub
End If
End If
Next
Form2.Show
End Sub

[xiaosh]

不用这么麻烦吧，只需用模式显示：yourform.show vbmodel