Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
VFP60- Existence of a property
Message
 
 
À
05/10/2000 13:28:05
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00425254
Message ID:
00425419
Vues:
23
Thanks for the great explanation, Daniel. I haven't thought that this property could be hidden, because I rarely use hidden properties in my work...

>Nadya:
>
>If MyProperty is a hidden (protected) property and loObject is an instance of the class,
>
>Type('loObject.MyProperty') = 'U'
>PemStatus(loObject, 'MyProperty', 5) = .t.
>
>Not exactly the same the same results...
>
>By the way, to check if a property is
>
>Hidden
>------
>llRetVal = PemStatus(loObject, 'MyProperty', 5)
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 3) = 'Property'
>llRetVal = llRetVal And Not PemStatus(loObject, 'MyProperty', 2)
>llRetVal = llRetVal And Type('loObject.MyProperty') = 'U'
>
>
>Protected
>---------
>llRetval = PemStatus(loObject, 'MyProperty', 5)
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 3) = 'Property'
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 2)
>
>Public
>------
>llRetVal = PemStatus(loObject, 'MyProperty', 5)
>llRetVal = llRetVal And PemStatus(loObject, 'MyProperty', 3) = 'Property'
>llRetVal = llRetVal And Type('loObject.MyProperty') <> 'U'
>
>Hope it helps,
>
>Daniel
If it's not broken, fix it until it is.


My Blog
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform