Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Multiple Instance of Form
Message
 
 
To
14/09/2005 08:47:21
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01049362
Message ID:
01049368
Views:
12
>Is it possible to check to see if a form is already running so that it does not end up running twice? Thanks.
LPARAMETERS tcName
tcName = ALLTRIM(UPPER(tcName))
LOCAL llFound, loForm, loRetobj
loRetobj = .NULL.
FOR EACH loForm IN _SCREEN.FORMS
    IF UPPER(loForm.NAME) == tcName AND UPPER(loForm.BASECLASS) = 'FORM'
        llFound = .T.
        EXIT
    ENDIF
ENDFOR
IF llFound
   loRetobj = loForm
ENDIF
RETURN loRetobj
Mark McCasland
Midlothian, TX USA
Previous
Reply
Map
View

Click here to load this message in the networking platform