Função EqualUnoObjects

Retorna True se as duas variáveis Basic especificadas representam a mesma instância de um objeto Uno.

Sintaxe:

EqualUnoObjects(oObj1, oObj2)

Parâmetros:

oObj1, oObj2: Variáveis a serem testadas.

Valor de retorno:

Bool

Exemplo:

O exemplo abaixo retorna True porque ambas as variáveis oDoc e ThisComponent são referências para o mesmo objeto:


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

O exemplo abaixo retorna False porque a atribuição cria uma cópia do objeto original. Assim Struct1 e Struct2 referem-se a instâncias de objetos distintos.


    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

Função IsObject