1: If Not MDIForm1.ActiveForm Is Nothing Then Unload MDIForm1.ActiveForm
第1个问题: 在要打开的窗体里写 Private Sub Form_Load() Dim frm As Form Set frm = MDIForm1.ActiveForm If Not frm Is Nothing Then frm.Hide End Sub
1. 那你要多文档窗口干什么,多文档的优势就是可以同时打开与管理多个子窗口!!Private Sub Command1_Click() CloseWindow Form2.Show End SubPrivate Sub Command2_Click() CloseWindow Form3.Show End SubPublic Function CloseWindow() Dim frm As Form
For Each frm In Forms If frm.Name <> "frmMain" Then Unload frm End If Next End Function2.
If Not MDIForm1.ActiveForm Is Nothing Then Unload MDIForm1.ActiveForm
在要打开的窗体里写
Private Sub Form_Load()
Dim frm As Form
Set frm = MDIForm1.ActiveForm
If Not frm Is Nothing Then frm.Hide
End Sub
那你要多文档窗口干什么,多文档的优势就是可以同时打开与管理多个子窗口!!Private Sub Command1_Click()
CloseWindow
Form2.Show
End SubPrivate Sub Command2_Click()
CloseWindow
Form3.Show
End SubPublic Function CloseWindow()
Dim frm As Form
For Each frm In Forms
If frm.Name <> "frmMain" Then
Unload frm
End If
Next
End Function2.