Περιεχόμενα

# Συνάρτηση EqualUnoObjects

Επιστρέφει True εάν οι δύο καθορισμένες μεταβλητές Basic αντιπροσωπεύουν το ίδιο στιγμιότυπο αντικειμένου Uno.

### Σύνταξη:

EqualUnoObjects(oObj1, oObj2)

### Return type:

Μπουλ

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

Name | Type | Description
--- | --- | ---
oObj1 | Object | the first Basic Uno object.
oObj2 | Object | the second Basic Uno object.

### Παράδειγμα:

Το παρακάτω παράδειγμα επιστρέφει το True επειδή τόσο το oDoc όσο και το ThisComponent είναι αναφορές στο ίδιο αντικείμενο:

        Dim oDoc as Object
        oDoc = ThisComponent
        MsgBox EqualUnoObjects(oDoc, ThisComponent) ' True

Το παρακάτω παράδειγμα επιστρέφει False επειδή η ανάθεση δημιουργεί ένα αντίγραφο του αρχικού αντικειμένου. Ως εκ τούτου, τα Struct1 και Struct2 αναφέρονται σε διαφορετικά στιγμιότυπα αντικειμένων.

        Dim Struct1 as new com.sun.star.beans.PropertyValue
        Dim Struct2 as Variant
        Struct1.Name = "John"
        Struct2 = Struct1
        MsgBox EqualUnoObjects(Struct1, Struct2) ' False
        Struct2.Name = "Judy"
        MsgBox Struct1.Name ' John
        MsgBox Struct2.Name ' Judy

Σχετικά θέματα

Συνάρτηση IsObject

Αντικείμενα, συναρτήσεις και υπηρεσίες UNO