Obsah

# Funkce EqualUnoObjects

Vrátí True, pokud dva určené Basic Uno objekty představují stejnou instanci Uno objektu.

### Syntaxe:

EqualUnoObjects(oObj1, oObj2)

### Návratový typ:

Bool

### Parametry:

Název | Typ | Popis
--- | --- | ---
oObj1 | Object | první objekt Basic Uno.
oObj2 | Object | druhý objekt Basic Uno.

### Příklad:

Níže uvedený příklad vrátí True, protože oDoc i ThisComponent odkazují na stejný objekt:

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

Níže uvedený příklad vrátí False, protože přiřazení vytvoří kopii původního objektu. Struct1 a Struct2 tudíž odkazují na různé instance objektu.

        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

Související témata

Funkce IsObject

Objekty, funkce a služby UNO