General information
Category:
Forms & Form designer
In addition to what Sebastian said, another design way to do this is to put a Timer control on the Splashscreen form and wait for Keystrokes, Mouseclicks or simply elapsed time...
-Irv.
>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******************
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only