Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Metrosplash screen for atleast five secs
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire d'écran & Écrans
Divers
Thread ID:
00666109
Message ID:
00666229
Vues:
21
You may want to use the -B startup parameter. If your splash screen is an image file (bmp, jpg or gif), you can specify the file name and duration to display with the -B startup parameter. (It's in the docs under "Using Command Line Options when Starting Visual FoxPro".)

>I would like to show the splash screen for atleast 5 secs before going to the actual forms.
>Could you please tell me how i can do that.
>
>whenever the icon(exe) is doubled clicked it calls the menumain.prg at the beginning
>
>in that program the following code is written in it.
>
>in this program it is actually calling the metrosplash.scx in the picture property of the form i am showing a picture.
>there is no other code in that form.
>I want to show that form for atleast five seconds right now it is staying for may be a second.
>
>Thank you
>****************Code starts here***********
>
>* run a small splash screen on start up
>DO FORM "FORMS\METROSPLASH" NAME splash LINK
>* set this flag if version needs to be reinstalled
>SET TALK OFF
>SET EXCL OFF
>SET MULTILOCKS ON
>SET DELETE OFF
>SET ESCAPE OFF
>SET PATH TO "I:\RCCTEST\vfp pmis\VFP PMIS\PROGRAMS"
>SET CENTURY TO 19 ROLLOVER 80
>
>PUBLIC datapath,gUser,mViewType,mAccess,mUserPath,gSecurity,mDataPath,gUserName,mLocalPath
>PUBLIC gUserPhone,gUserDept,guser_id,gUserEmail,gUserTitle
>PUBLIC p_options,c_options,s_options,u_options,i_options,menumain,MVAR,gTimer,gcompany,gDataSession
>PUBLIC nBuffering,OverRideMessage,UseRR_Control,DoubleClick,mAltPath,gAlt_Flag,gDrawPath
>PUBLIC ARRAY anInstance(1),aLiteral(21,2)
>
>STORE "" TO gUserDept,gUserPhone,gUserEmail,gUserTitle
>STORE "" TO gUser,mAccess,mViewType,datapath,mUserPath,gSecurity,mDataPath,mLocalPath,gDrawPath
>STORE "" TO p_options,c_options,s_options,u_options,i_options,mHelpFile,gcompany,gUserName,mAltPath
>STORE 0 TO gDataSession,guser_id
>STORE testing TO OverRideMessage
>STORE .F. TO UseRR_Control
>STORE .F. TO gReInstall
>STORE .F. TO DoubleClick
>STORE .F. TO gAlt_Flag
>
>** set the buffering mode to && optimistic table buffering
>STORE 5 TO nBuffering
>* lengthen the time that a user can have between key strokes on pick lists
>STORE 1.0 TO _DBLCLICK
>* check for any command prompt parameters
>
>ON KEY LABEL F8 OverRideMessage = .T.
>* run a routine to close all apps if user closes menu via Windows shutdown
>IF NOT Testing
> ON ERROR DO "I:\RCCTEST\vfp pmis\VFP PMIS\PROGRAMS\errhand" WITH ERROR( ), MESSAGE( ), MESSAGE(1), PROGRAM( ), LINENO( )
> ON SHUTDOWN DO "i:\RCCTEST\vfp pmis\VFP PMIS\PROGRAMS\closeApps"
>ELSE
> SET ESCAPE ON
>ENDIF
>
>******************end******************
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform