Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Hide the main VFP Screen
Message
De
27/01/2006 12:38:05
 
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:
01090997
Vues:
16
_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