Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Making it more bullet proof
Message
From
08/11/2003 20:38:44
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Making it more bullet proof
Miscellaneous
Thread ID:
00848009
Message ID:
00848009
Views:
57
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
Next
Reply
Map
View

Click here to load this message in the networking platform