没有出现你说的情况:'--------------------------------------------------------------------------------------- ' Module : Form1 ' Author : xixi ' Date : 2009-9-26 ' Purpose : 开多个Form1 '---------------------------------------------------------------------------------------Option ExplicitPrivate Sub Command1_Click() Dim frm1 As Form1 Dim frm2 As Form1 Dim frm3 As Form1
Set frm1 = New Form1 frm1.Caption = "1" frm1.Show Set frm2 = New Form1 frm2.Caption = "2" frm2.Show Set frm3 = New Form1 frm3.Caption = "3" frm3.Show End Sub
' Module : Form1
' Author : xixi
' Date : 2009-9-26
' Purpose : 开多个Form1
'---------------------------------------------------------------------------------------Option ExplicitPrivate Sub Command1_Click()
Dim frm1 As Form1
Dim frm2 As Form1
Dim frm3 As Form1
Set frm1 = New Form1
frm1.Caption = "1"
frm1.Show Set frm2 = New Form1
frm2.Caption = "2"
frm2.Show Set frm3 = New Form1
frm3.Caption = "3"
frm3.Show
End Sub
查查Unload部分吧,是不是写了end之类的结束操作
'MDI子窗体,也是一样,关闭其中任意一个,连主窗体都同时关闭了好神奇的代码,你unload的是谁啊?不是主窗体吧?