Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Multiple Instance of Form
Message
 
 
À
14/09/2005 08:47:21
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP2
Network:
Windows 2003 Server
Database:
Visual FoxPro
Divers
Thread ID:
01049362
Message ID:
01049368
Vues:
11
>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
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform