Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hide the main VFP Screen
Message
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:
01091049
Vues:
22
Hi Chris, thanks for your help. It all boils down to a stupid mistake on my part. Check out my last post to Tore for details. Thanks again.





>Post your form's INIT code and for kicks, make the form modal.
>
>>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
Répondre
Fil
Voir

Click here to load this message in the networking platform