Περιεχόμενα

# Συνάρτηση FindPropertyObject

Επιτρέπει σε αντικείμενα να απευθύνονται σε χρόνο εκτέλεσης ως παράμετρος συμβολοσειράς χρησιμοποιώντας το όνομα του αντικειμένου.

Για παράδειγμα, η ακόλουθη εντολή:

    MyObj.Prop1.Command = 5

αντιστοιχεί στο μπλοκ εντολών:

    Dim ObjVar as Object
    Dim ObjProp as Object
    ObjName As String = "MyObj"
    ObjVar = FindObject( ObjName As String )
    PropName As String = "Prop1"
    ObjProp = FindPropertyObject( ObjVar, PropName As String )
    ObjProp.Command = 5

Αυτό επιτρέπει τη δυναμική δημιουργία ονομάτων σε χρόνο εκτέλεσης. Για παράδειγμα:

"TextEdit1" έως "TextEdit5" σε ένα βρόχο για να δημιουργήσετε πέντε ονόματα στοιχείων ελέγχου.

Δείτε επίσης: FindObject

## Σύνταξη:

    FindPropertyObject( ObjVar, PropName As String )

## Παράμετροι:

ObjVar: Μεταβλητή αντικειμένου που πρόκειται να καθοριστεί δυναμικά σε χρόνο εκτέλεσης.

PropName: Συμβολοσειρά που καθορίζει το όνομα της ιδιότητας που πρόκειται να αντιμετωπιστεί σε χρόνο εκτέλεσης.

### Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

12 Απροσδιόριστη μεταβλητή

14 Άκυρη παράμετρος

52 Άκυρο όνομα αρχείου ή αριθμού αρχείου

57 Λάθος συσκευής εισαγωγής/εξαγωγής

Παρακαλούμε, υποστηρίξτε μας!