Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Where should I put READ EVENTS in main?
Message
De
11/10/2001 03:33:13
Alexandre Palma
Harms Software, Inc.
Alverca, Portugal
 
 
À
10/10/2001 13:05:55
Peter Brama
West Pointe Enterprises
Detroit, Michigan, États-Unis
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00566462
Message ID:
00566816
Vues:
12
Peter your code soul like like the following
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="My App v1.0, Copyright 2001 West Pointe Enterprises"
_screen.backcolor=rgb(58,110,165)
_screen.minbutton=.F.
_screen.maxbutton=.F.

LOCAL vAbort

use mysystfile
if empty(mysystfile.fThisField) then
  if reccount()=0 then
    append blank
  endif
  do form mysystform to vAbort
endif

IF !vAbort
  do form myinitialform
  read events
ENDIF

if vAbort is true then since you are not issuing a read events your pogram will terminate here
>Whoops, forgot to put this sample code in...
>
>
>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="My App v1.0, Copyright 2001 West Pointe Enterprises"
>_screen.backcolor=rgb(58,110,165)
>_screen.minbutton=.F.
>_screen.maxbutton=.F.
>
>use mysystfile
>if empty(mysystfile.fThisField) then
>  if reccount()=0 then
>    append blank
>  endif
>  do form mysystform to vAbort
>  if vAbort=.T. then
>    clear events
>    quit
>  endif
>endif
>
>do form myinitialform
>read events
>
>
>
>The MYINITIALFORM fires even when vAbort=.T.
>
>Pete
>
>
>>Peter
>>
>>READ EVENTS will effectively wait until CLEAR EVENTS is issued. So what you have done is correct. In the UNLOAD Event on the form, issue CLEAR EVENTS. Any code AFTER the READ EVENTS will then execute.
>>
>>Kev
>>>I have always had a main program that consists of:
>>>
>>>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="My App, Copyright 2001 West Pointe Enterprises"
>>>_screen.backcolor=rgb(58,110,165)
>>>_screen.minbutton=.F.
>>>_screen.maxbutton=.F.
>>>
>>>do form mbappform
>>>read events
>>>
>>>
>>>Should the READ EVENTS be the last item? I guess I don't understand fully what READ EVENTS does. I know it starts "event processing" which I believe is the "processing" of commands, buttons, code, etc.
>>>
>>>With it AFTER the form I want run... wouldn't that technically not run the code on a form because the READ EVENTS fires AFTER the form? I know this works, but I don't understand why.
>>>
>>>
>>>Is this NORMALLY what is in the main program for an app? What about if I want to do some file manipulation PRIOR to the MBAPPFORM running... I shouldn't put that in here only in the FORM such as in the LOAD or INIT section?
>>>
>>>Thanks ahead of time for all the great help here!!
Alexandre Palma
Senior Application Architect
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform