Conteúdo

# Função EqualUnoObjects

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

### Sintaxe:

EqualUnoObjects(oObj1, oObj2)

### Tipo de retorno:

Bool

### Parâmetros:

Nome | Tipo | Descrição
--- | --- | ---
oObj1 | Object | o primeiro objeto Basic Uno.
oObj2 | Object | o segundo objeto Basic Uno.

### Exemplo:

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

Tópicos relacionados

D'oh! You found a bug (text/sbasic/shared/03102800.xhp#IsObject_h1 not found).

UNO Objects, Functions and Services

Necessitamos da sua ajuda!