Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to Copy a Object ??
Message
De
30/08/1999 03:44:39
Vinod Parwani
United Creations L.L.C.
Ad-Dulayl, Jordanie
 
 
À
29/08/1999 21:24:29
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00258802
Message ID:
00259065
Vues:
21
>>x=Thisform
>>
>>Holds a object reference for that object but how I can make a seperate copy of object...something like..
>>
>>x=Copyof(Thisform)
>
>

>
>You need a Form Class and an Instance to use.
>
>You can Download SaveAs in File Section to save the Form into class VCX.
>
>What you can do:
>
>Local myForm
>
>myForm=CreateObject("FCustomer")
>myForm.Show
>
>Or...
>
>IF PEMSTATUS(_SCREEN, "FCustomer1", 5)
> _SCREEN.ADDOBJECT("FCustomer1", "FCustomer")
>ENDIF
>
>_SCREEN.FCustomer1.Show
>
>
>Notes:
>
>if you change the form into class, there will NO DE.
>You need to set all Open Table as needed!
>
>* Form.Load
>IF !Use("Customer")
> Use Customer AGAIN in 0 Order Tag Cust_No Shared
>ENDIF
>=CursorSetProp("Buffer", 3, "Customer")
>
>IF !Use("Orders")
> Use Orders AGAIN in 0 Order Tag Ord_No Shared
> Select Customer
> Set Relation To Cust_No Into Orders Additive
>ENDIF
>=CursorSetProp("Buffer", 3, "Orders")
>
>* etc.
>
>

>
>But if you just want to Copy the Form into another Formset..
>I don't think you can copy all with easy..
>I will type {CTRL+A} to select all Objects in Form
>{CTRL+C} to Copy, but the form properties and new procedure... need to copy manually! ~_~

Thnks for the reply..

Actually its not just related with forms but with any object...

is there any easier way to do it ??? i.e. which can just make a copy of the object...(in run time..)
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform