Funkcija EqualUnoObjects

Vrne True, če navedeni spremenljivki Basic predstavljata isto instanco predmeta UNO.

Skladnja:

EqualUnoObjects(oObj1, oObj2)

Vrnjena vrednost:

Bool

Parametri:

Name

Type

Description

oObj1

Object

the first Basic Uno object.

oObj2

Object

the second Basic Uno object.


Primer:

Spodnji primer vrne True, saj sta tako oDoc kot ThisComponent sklica na isti predmet:


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

Spodnji primer vrne False, saj dodelitev ustvari kopijo izvirnega predmeta. Zato se Struct1 in Struct2 sklicujeta na različni instanci predmeta.


    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