Mdi窗体中,如何在打开一个子窗体前判断有无其他子窗体,若有卸载掉

Question

Mdi窗体中,如何在打开一个子窗体前判断有无其他子窗体,若有卸载掉

Answer 1

我的办法是不管有没有，都先执行一次 unload如
Form1.unload
Form2.unload
Form3.unload
做成一个公用过程。

Answer 2

'检查某个窗体是否已经加载.
'参数:窗体名
'返回值:TRUE 已加载,FALSE 未加载.FUNCTION CHECKFRM(FRMNAME AS STRING) AS BOOLENDIM FRM AS FORM
DIM REVAL AS BOOLENREVAL=FALSE
FOR EACH FRM IN FORMS
     IF UCASE$(FRM.NAME)=UCASE$(FRMNAME) THEN
         REVAL=TRUE
         EXIT FOR
     END IF 
NEXTCHECKFRM=REVALEND FUNCTION