Συνάρτηση FindPropertyObject
Επιτρέπει σε αντικείμενα να απευθύνονται σε χρόνο εκτέλεσης ως παράμετρος συμβολοσειράς χρησιμοποιώντας το όνομα του αντικειμένου.
Για παράδειγμα, η ακόλουθη εντολή:
αντιστοιχεί στο μπλοκ εντολών:
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 Απροσδιόριστη μεταβλητή
52 Άκυρο όνομα αρχείου ή αριθμού αρχείου
57 Λάθος συσκευής εισαγωγής/εξαγωγής