screenactiveform.prg

来自「MSComm控件资料,Visual Basic 6.0(以下简称VB) 是一种功」· PRG 代码 · 共 31 行

** Use this function instead of _Screen.ActiveForm to work
** around a bug in VFP
FUNCTION ScreenActiveForm()
	LOCAL loObj
	IF TYPE("_Screen.ActiveForm") == "O"
	
		loObj = _Screen.ActiveForm
		
		** Do NOT use VARTYPE() for this test
		IF TYPE("loObj.Baseclass") = "C"
		
			IF UPPER(loObj.Baseclass) == "FORM"
				RETURN loObj
			ENDIF
			
			IF UPPER(loObj.Baseclass) == "OLECONTROL"
				DO WHILE TYPE("loObj.parent.Baseclass") = "C"
					IF UPPER(loObj.parent.Baseclass) == "FORM"
							RETURN loObj.parent
					ELSE
						loObj = loObj.parent
					ENDIF
				ENDDO
			ENDIF
			
		ENDIF
	ENDIF
	
	RETURN .NULL.
ENDFUNC