Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Splash screen before entering a form
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
The Mere Mortals Framework
Divers
Thread ID:
00389079
Message ID:
00389089
Vues:
24
>I need to display a splash screen in the background while a form is loading. The form has a complicated SQL Server query that can take some time to get results back. Is there something in the framework to handle this?

You don't really need a framework peice, just create a form with out a title bar:
oSplash = createobject('splasher')
oSplash.Show()
wait window "run the form" timeout 5
oSplash.Hide()
DEFINE CLASS splasher AS form


	Top = 0
	Left = 0
	Height = 172
	Width = 377
	DoCreate = .T.
	Caption = "Form5"
	TitleBar = 0
	Name = "splasher"
	AutoCenter = .T.

	ADD OBJECT label1 AS label WITH ;
		FontBold = .T., ;
		FontSize = 40, ;
		FontUnderline = .T., ;
		WordWrap = .T., ;
		Alignment = 2, ;
		Caption = "Big Flashy Splash!", ;
		Height = 144, ;
		Left = 10, ;
		Top = 16, ;
		Width = 349, ;
		ForeColor = RGB(0,0,128), ;
		Name = "Label1"
ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform