General information
Category:
Forms & Form designer
Hi Allen, I use the _screen.forms() function. This function returns the numeric index of visible forms. I created a function that will let me know if a form is visible by using the form's name.
I hope this helps.
Kurtwood
cFormName = _Screen.Forms(FormName("form2")).Name
IF THISForm.Name = cFormName
**Form is not Active/Visible
ELSE
**Form is Active/Visible
ENDIF
*-----------------------------
FUNCTION FormName
PARAMETER xformname
nFormCount = _Screen.FormCount
FOR n = 1 TO nFormCount
nFormNumber = 1
IF UPPER(_Screen.Forms(n).name) == UPPER(xFormName)
nFormNumber = n
EXIT
ENDIF
ENDFOR
RETURN(nFormNumber)
ENDFUNC
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only