有三个窗体：fr1、fr2、fr3，fr1是父窗体，fr2、fr3是子窗体。我想点击button1显示fr2，点击button2显示fr3。然后我在button1下面写以下代码：
dim fr2 as new form2
fr2.midparent=me
fr2.show

button2下面写以下代码：
dim fr3 as new form3
fr3.midparent=me
fr3.show

这样就有个问题，就是每点击一次button就会出现一个窗口。请问怎样可以点击button1时只显示fr2，而其他的窗口都把它关闭？谢谢了！

你在button1中加一句  fr3.close 行吗

我试过不行，不知道是什么原因。

'在主窗体下编写一个过程---判断目标窗体是否已打开
Private Function Getpresentform(ByVal name As String) As Boolean
'获得frmMain窗体的子窗体的数量
Dim i As Integer = Me.MdiChildren.Length
'循环判断是否有名为yourfrmname的子窗体实例
For i = 0 To Me.MdiChildren.Length - 1
If Me.MdiChildren(i).Name = yourfrmname Then
'存在名为name的子窗体，是子窗体获得焦点并返回True
Me.MdiChildren(i).Focus()
Return True
End If
Next
'不存在名为yourfrmname的子窗体False
Return False
End Function
'单击事件:
If Getpresentform("childfrm") Then
Exit Sub
End If
这样,当你点了(button1或button2)n次(n>=1)时,fr2或fr3都只会显示一次