Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hide the main VFP Screen
Message
 
À
27/01/2006 13:09:06
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Windows XP SP2
Network:
Novell 4.x
Database:
Visual FoxPro
Divers
Thread ID:
01090993
Message ID:
01091025
Vues:
19
I moved the clear events, but that didn't fix it either.

>I don't think you should have Clear events in the main.prg, Read events should be the last line to execute. Clear events should be in the destroy event of the form.
>
>>Hi Tore - Still no dice. I tried moving the READ EVENTS into the forms init method, but that didn't make a difference ( not that I thought it would).
>>
>>
>>
>>
>>>
_vfp.visible=.F.
>>>
>>>>Hi Tore - I tried your suggestion, but no dice. I'm stumped!
>>>>
>>>>>_screen.visible=.F.
>>>>>
>>>>>Form activate: thisform.visible=.T.
>>>>>
>>>>>>Hello, I'm writing a quit utility app and I would like for the main VFP screen not to be showing when the program is executed. The problem is, whenever I run the exe, my form will not show either. What am I missing?? Thanks in advance for the help.
>>>>>>
>>>>>>In my config.fpw, I have the following statement:
>>>>>>SCREEN = OFF
>>>>>>
>>>>>>I have my form properties set as follows:
>>>>>>ALWAYSONTOP = .T.
>>>>>>MDIFORM = .F.
>>>>>>SHOWWINDOW = 2 (AS TOP LEVEL FORM)
>>>>>>WINDOWTYPE = 0 (MODELESS)
>>>>>>
>>>>>>
>>>>>>This is what my main.prg looks like:
>>>>>>
>>>>>>ON SHUTDOWN DO myShutDown
>>>>>>ON ERROR DO errhand WITH ;
>>>>>> ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO(1)
>>>>>>
>>>>>>DO SysMenu.mpr
>>>>>>DO FORM SizeView
>>>>>>READ EVENTS
>>>>>>ON ShutDown
>>>>>>CLEAR EVENTS
>>>>>>QUIT
>>>>>>
>>>>>>*********************************************************
>>>>>>PROCEDURE myShutDown
>>>>>>CLEAR EVENTS
>>>>>>ON ShutDown
>>>>>>QUIT
>>>>>>*********************************************************
>>>>>>PROCEDURE errhand
>>>>>>PARAMETER merror, mess, mess1, mprog, mlineno
>>>>>> LOCAL myMessage
>>>>>> myMessage='Error number: ' + LTRIM(STR(merror))+ CHR(13) ;
>>>>>> + 'Error message: ' + mess + CHR(13) ;
>>>>>> + 'Line of code with error: ' + mess1 + CHR(13);
>>>>>> + 'Line number of error: ' + LTRIM(STR(mlineno)) + CHR(13) ;
>>>>>> + 'Program with error: ' + mprog
>>>>>> =MESSAGEBOX(myMessage,"ERROR !!!",16)
>>>>>>RETURN
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform