表单是否打开
如何判断表单是否打开
*!* 自定义函数isrunform,判断某一个表单是否运行 *!* 用法:?isrunform("myform1") *!* 如果运行,则显示.t.,如果没有运行,则显示.f. FUNCTION isrunform( runformfilename) ifrunform=.F. FOR m.formindex = 1 TO _SCREEN.FORMCOUNT IF JUSTSTEM(SYS(1271,_SCREEN.FORMS(m.formindex)))==runformfilename ifrunform=.T. EXIT ENDIF ENDFOR RETURN ifrunform ENDFUNC
*cFormName 表单的文件名;mFormName 表单引用名;cPublic 表单名的全局宏替换公式* Function runform Para cFormName,mFormName cPublic="Public "+mFormName &cPublic If !(Type("&mFormName.")="O" and !Isnull(&mFormName.)) Do Form &cFormName Name &mFormName Else If &mFormName..WindowState=1 &mFormName..WindowState=0 Endif &mFormName..Show ENDIF ENDFUNC