Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Showing status of program on screen
Message
De
23/05/2005 07:21:29
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 8 SP1
OS:
Windows XP SP1
Network:
Windows 2000 Server
Database:
Visual FoxPro
Divers
Thread ID:
01016672
Message ID:
01016681
Vues:
17
>I have a number of routines which are invoked when a user clicks a button. The problem is the routines take quite a while to run and therefore I would like to display a message to the user of what is happening. Rather than use a Wait window are there any other techniques I could use?
>
>I have seen a form with a list box or something and everytime somethings happens it writes a record to a cursor which is displayed in a list box on the form.
>
>
>"Now printing report for style T675"      29/12/04 15:34:00
>"Now attaching report for style T567"     29/12/04 15:35:00
>
>
>Is this easy to do I cant remeber where I have seen this? Any help would be appreciated.
>
>Many Thanks

Another start point:
Audit_Open("Some Process")

FOR k=1 TO 100
	=Audit_Add(TRANSFORM(m.k,"@R phase 999999"))
	=INKEY(RAND()*1)
NEXT

Audit_Close()


PROCEDURE Audit_Open(cTitle)
	DEFINE POPUP Audit ;
		FROM 10,10 MARGIN ;
		TITLE (m.cTitle);
		FONT "Lucida Console",8
		

PROCEDURE Audit_Add(cText)
	IF CNTBAR('Audit')>0
		SET MARK OF BAR CNTBAR('Audit') OF Audit TO .T.
	ENDIF
	DEFINE BAR CNTBAR('Audit')+1 OF Audit ;
		PROMPT TTOC(DATETIME())+' >> '+m.cText;
		COLOR SCHEME 1+CNTBAR('Audit')%2

	ACTIVATE POPUP Audit BAR CNTBAR('Audit') NOWAIT
	SHOW POPUP Audit
	
PROCEDURE Audit_Close
	DEACTIVATE POPUP Audit
	RELEASE POPUPS Audit
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform