防止某一个表单重复运行,比方表单文件名为:表单.scx,
则runform("表单")
下面是程序代码:
FUNCTION runform( runformfilename)
LOCAL FORMINDEX,ifrunform
ifrunform=.F.
FOR m.formindex = 1 TO _SCREEN.FORMCOUNT
IF JUSTSTEM(SYS(1271,_SCREEN.FORMS(m.formindex)))==runformfilename
ifrunform=.T.
ACTIVATE WINDOWS (_SCREEN.FORMS(m.formindex).NAME)
IF _SCREEN.FORMS(m.formindex).WINDOWSTATE=1 &&窗口最小化
_SCREEN.FORMS(m.formindex).WINDOWSTATE=0 &&窗口恢复为原样大小
ENDIF
EXIT
ENDIF
ENDFOR
IF ifrunform=.F.
DO FORM &runformfilename
ENDIF
RETURN
ENDFUNC
不知是否符合?