Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Property Not Accessible
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Classes - VCX
Divers
Thread ID:
00674022
Message ID:
00674109
Vues:
35
Michael,

Ok, In VFP it would be

oVol = createobject("clsVolatility")
oVol.DateRange = Createobject("clsDateRange")

***************************************
DEFINE CLASS clsVolatility AS CUSTOM
***************************************

Volatility = 0
DateRange = .null. && create a property to hold the object reference

function Destroy
DateRange = .null. && clean up
endfunc

ENDDEFINE

***************************************
DEFINE CLASS clsDateRange AS CUSTOM
***************************************

StartDate = {}
EndDate = {}

FUNCTION IsEmpty()
RETURN (THIS.StartDate = {} AND THIS.EndDate = {})
ENDFUNC

ENDDEFINE

Realize that objects created like this can not participate directly in a UI, these will be buinessrule kinds of objects.

>Sorry, I know I'm not explaining this very well...I want to be able to set the DateRange property of clsVolatility to an externally created clsDateRange object. In VB this would be:
>
>Set oVol.DateRange = oDate
df (was a 10 time MVP)

df FoxPro website
FoxPro Wiki site online, editable knowledgebase
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform