Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hide the main VFP Screen
Message
 
À
27/01/2006 13:24:57
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:
01091033
Vues:
23
I think i figured out what it is, I'll let you know in the next couple minutes if it works out.

>Just to make it clear, the problem is that your form does not appear?
>Are you sure that it actually runs? Try to add a Wait window 'Test' line just to be sure.
>
>
>>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