Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Add properties and methods for any objects
Message
De
08/02/2002 04:42:12
Max Chen
Yx Software
Shunde, Chine
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Programmation Orientée Object
Titre:
Add properties and methods for any objects
Divers
Thread ID:
00617168
Message ID:
00617168
Vues:
68
The following PRG works. Does it undocument ?
And will it be supported in the new version ?


*-----------------------
PUBLIC o
o=CREATEOBJECT('form1')
o.show

?o.command1.Added_Property
o.command1.Added_Method()

*---
DEFINE CLASS form1 AS form

DoCreate = .T.
Caption = "form1"
Name = "Form1"
autoCenter=.t.

ADD OBJECT command1 AS commandbutton WITH ;
Top = 10, ;
Left = 250, ;
Height = 25, ;
Width = 100, ;
Caption = "Command1", ;
Name = "Command1",;
Added_Property = 'the value of property '


PROCEDURE command1.Added_Method
? 'the method does works'
ENDPROC

ENDDEFINE
*-----------
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform