Ενεργοποιήστε τη JavaScript στον περιηγητή για να εμφανίσετε τις σελίδες βοήθειας LibreOfficeDev.

Συνάρτηση 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 Λάθος συσκευής εισαγωγής/εξαγωγής