Функция EqualUnoObjects

Връща True, ако двете зададени променливи на Basic представят един и същ екземпляр на обект на Uno.

Синтаксис:

EqualUnoObjects(oObj1, oObj2)

Тип на резултата:

Bool

Параметри:

Име

Тип

Описание

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
  

Моля, подкрепете ни!