Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Making it more bullet proof
Message
De
08/11/2003 20:38:44
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Titre:
Making it more bullet proof
Divers
Thread ID:
00848009
Message ID:
00848009
Vues:
58
Recently, we came up with this code in the Valid() event of our text field control:
* We have to be on baseform
IF VARTYPE(ThisForm)='O'

   * If we are quitting the form or Visual FoxPro
   DO CASE

      * Form internal Valid
      CASE ThisForm.ReleaseType=0

      * Form menu or X close
      CASE ThisForm.ReleaseType=1
         IF This.lCloseNoValid
            RETURN .F.
         ENDIF

      * Quit FoxPro
      OTHERWISE
         IF This.lCloseNoValid
            RETURN .F.
         ENDIF

   ENDCASE

ENDIF
That works. However, when I select an item in the menu, it bypasses this code. What other CASE can I add in here to detect the selection of an item in the menu?
Michel Fournier
Level Extreme Inc.
Designer, architect, owner of the Level Extreme Platform
Subscribe to the site at https://www.levelextreme.com/Home/DataEntry?Activator=55&NoStore=303
Subscription benefits https://www.levelextreme.com/Home/ViewPage?Activator=7&ID=52
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform