EqualUnoObjects-funktion

Indhold

# Funktionen EqualUnoObjects

Returnerer True (sand), hvis de to angivne Basic-variable repræsenterer den samme UNO-objektinstans.

### Syntaks:

EqualUnoObjects(oObj1, oObj2)

### Returtype

Bool

### Parametre:

Navn | Type | Beskrivelse
--- | --- | ---
oObj1 | Object | Det første Basic Uno-objekt.
oObj2 | Object | Det andet Basic Uno-objekt.

### Eksempel:

Eksemplet herunder returnerer True (sand), fordi både oDoc og ThisComponent er referencer til det samme objekt:

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

Eksemplet herunder returnerer False (falsk), fordi tildelingen opretter en kopi af det oprindelige objekt. Derfor refererer Struct1 og Struct2 til forskellige objektinstanser.

        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

Relaterede emner

IsObject

UNO-objekter, -funktioner og -tjenester