INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Jobs

Tips -N- Tricks

Timed Splash Screen by danceman
Posted: 20 Jul 02

in your config.fpw file
SCREEN=OFF

in your main program
DO FORM splash WITH 60000  && show splash screen for one min
READ EVENTS

set the properties of the splash form
these settings are a must
WindowType = 0  && modeless
ShowWindow = 2  && as a top level form
Desktop = .t.

these settings are only to have the appearence of a splash screen, remove form attributes
AutoCenter = .t.  && not a requirement
ClipControls = .f.
Closeable = .f.
MaxButton = .f.
MinButton = .f.

In the InitEvent of the form:
LPARAMETERS lnInterval
ThisForm.Timer1.Interval = lnInterval

In the Destroy event of the form:
clear events

Place a timer control on the form.  In the TimerEvent place
ThisForm.Release()

Add what ever graphics and text to suit.  

I have modified this to make a Security warning screen that requires user to ankowledge by clicking Accept button.  If the form times out or user selects Reject the form returns .f. to main calling program or in the Unloadevent of the form

if !thisform.returnvalue
    quit
endif


Back to Microsoft: Visual FoxPro FAQ Index
Back to Microsoft: Visual FoxPro Forum

My Archive

Resources

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close