Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Who's called me
Message
 
À
19/01/2000 06:23:18
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Titre:
Divers
Thread ID:
00319768
Message ID:
00319772
Vues:
17
Kev,

Have a look at the PROGRAM() function.

Run the following code to see it in action:
PUBLIC oTestForm

oTestForm=NEWOBJECT("TestForm")
oTestForm.Show
RETURN


	**************************************************
*-- Form:         TestForm (e:\temp\testprog.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   01/19/00 10:58:09 PM
*
*
DEFINE CLASS TestForm AS form


	DoCreate = .T.
	Name = "TestForm"


	ADD OBJECT commandbutton1 AS commandbutton WITH ;
		Top = 95, ;
		Left = 125, ;
		Name = "commandbutton1"


	PROCEDURE showprogram
		acti screen
		? 'Program(): ' + program()
		? 'Program(-1): '  + tran(program(-1))

		FOR i = 0 to program(-1)
			? 'Program(' + tran(i) + '): ' + program(i)
		ENDFOR &&* i = 1 to program(-1)
	ENDPROC


	PROCEDURE commandbutton1.Click
		thisform.ShowProgram()
	ENDPROC


ENDDEFINE
*
*-- EndDefine: TestForm
**************************************************
Cheers,

Andrew

>Is there a way of telling what method has called what method.
>
>I have a 10page pageframe, and when and object on page 10 calls page1 to activate it, is there a way of detecting in page1 that it was called from page10?
>
>Thanks
>Kev


If we were to introduce Visual FoxBase+, would we be able to work from the dotNet Prompt?


From Top 22 Developer Responses to defects in Software
2. "It’s not a bug, it’s a feature."
1. "I thought I fixed that."


All my FoxTalk and other articles are available on my web site.


Unless specifically identified otherwise, anthing posted here is purely my opinion and may or may not reflect the policies or practices of Microsoft.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform