类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我使用MDI窗体做了一个小工具,通过菜单进行窗体的切换.在窗体的切换过程中,
先用unload MDIFormain.activeform 卸载当前的活动窗体,
然后加载制定的窗体.当MDI的子窗体存在时,程序运行没有问题,但是当MDI子窗体不存在时,在卸载过程时出现错误.
如:当子窗体存在时,unload mdiformain.activeform,load frmSon;没有问题,如子窗体不存在,unload mdiformain.activeform时将出现错误.请问如何判断子窗体是否存在,这个问题可以解决吗?如何解决?如不能解决还有其他的方法进行子窗体间的切换吗?
网友回答：
Private Sub form1_Click()
Screen.ActiveForm.Hide
frmOne.Show
End Sub
Private Sub form2_Click()
Screen.ActiveForm.Hide
frmTwo.Show
End Sub
这样就可以了
If MDIFormain.ActiveForm Is Nothing Then
msgbox "没有活动窗口"
else
unload MDIFormain.activeform
end if