Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Help with MAIN program code
Message
From
10/10/2001 23:57:42
Dragan Nedeljkovich (Online)
Now officially retired
Zrenjanin, Serbia
 
 
To
10/10/2001 13:56:24
Peter Brama
West Pointe Enterprises
Detroit, Michigan, United States
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00566287
Message ID:
00566789
Views:
12
>Dragon,
>
>What started this all was the PRG like this:
>
>
>set talk off
>set deleted on
>set bell off
>set sysmenu off
>set multilocks on
>set exclusive off
>on shutdown quit
>
>clear
>_screen.windowstate=2
>_screen.caption="MyApp v1.0, Copyright 2001 West Pointe Enterprises"
>_screen.backcolor=rgb(58,110,165)
>_screen.minbutton=.F.
>_screen.maxbutton=.F.
>vAbort=.f.   && < --
>use mysystfile
>if empty(mysystfile.fmyfield) then
>  if reccount()=0 then
>    append blank
>  endif
>  do form mysystform to vAbort
>endif   && < --
>  if vAbort   && < --
>    clear events
>    quit
   else   && < --
    do form myinitialform   && < --
    read events   && < --
>  endif
>
>
The message was getting too long. Here's what I think at this point: if vAbort, don't even get to running initialform, but qut immediately. This way, you don't even start the event drive, i.e. Read Events doesn't get executed at all. If everything's OK, it goes its merry way.

back to same old

the first online autobiography, unfinished by design
What, me reckless? I'm full of recks!
Balkans, eh? Count them.
Previous
Reply
Map
View

Click here to load this message in the networking platform