Função EqualUnoObjects

Devolve True se as duas variáveis Basic especificadas representarem a mesma instância do objeto Uno.

EqualUnoObjects(oObj1, oObj2)

Bool

O exemplo abaixo devolve True porque tanto oDoc como ThisComponent são referências ao mesmo objeto:

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

O exemplo abaixo devolve False, porque a atribuição cria uma cópia do objeto original. Por conseguinte, Struct1 e Struct2 referem-se a instâncias de objetos diferentes.

    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