Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Call a VFP object from VFP
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01496407
Message ID:
01496408
Vues:
75
>I have an app which uses an external monitor to display data from another vfp app
>I created a project with a simple startup prg and a form and compiled it as an exe.
>then in my regular vfp app I do a run /n external.exe which works but when the regular app ends the called external app remains on the external monitor. then next time tha app starts it creates another external app and so forth
>
>I need to kill the external app somehow. Or better yet call it with create or newobject
>
>in order to accomplish this I used the object browser to convert the scx into a prg but that prg has errors in it when it comes to the grid definitions.
>
>how could I accomplish this?
>
>Thanks
>
>here is my startup prg:
>DEFINE CLASS xStart AS SESSION OLEPUBLIC
>
>
> PROCEDURE INIT
>
>
> DO FORM EXTERNAL\ExternalForm
> READ EVENTS
> IF VERSION(2)=0
> QUIT
> ELSE
> WAIT WINDOW "Good Bye"
> ENDIF
> ENDPROC
>
> PROCEDURE DESTROY
>
> ENDPROC
>
> PROCEDURE ERROR(nError,cMethod,nline)
>
> ENDPROC
>
>ENDDEFINE
>
>
>
>Peter
PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


	**************************************************
*-- Form:         form1 (c:\rpm\form1.scx)
*-- ParentClass:  form
*-- BaseClass:    form
*-- Time Stamp:   01/18/11 09:08:12 AM
*
DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT grid1 AS grid WITH ;
		ColumnCount = 2, ;
		Height = 217, ;
		Left = 60, ;
		Top = 12, ;
		Width = 241, ;
		Name = "Grid1", ;
		Column1.Name = "Column1", ;
		Column2.Name = "Column2"



ENDDEFINE
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform